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Prele PURE 
PRG1 
| Urry. City ROUTINES. THAT. PRODUCE 
| Prope Prat Te no iN Feet eg 
2. REQUIREMENTS 
| 2.1 EQUIPMENT 
| g. POP-1I . (4K CORE) 
) C. PAG1I READER(S) AND PUNCH(S). 
| THE PROCESSOR AND TELETYPE MUST BE IN OPERATING CONDITION. 
: THE MUST BE AT ITS ST PERIPHERAL ADDRESSES. 
SEE SECTION 7.3 FOR OPERATION WITH NON-STANDARD PERIPHERAL ADORESSES. 
| 2.2 STORAGE 
| THIS PROGRAM USES LOCATION 00200 THROUGH 015600. 
3. LOADING PROCEDURE 
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T-11 S oesick PUNCH TESTS ONSISTS OF A PACKAGE 
0 TE i PAb11 READER LOGIC, READER, 
ONCE Loe AND PUNCH IN COMBINATION. 
ALL TESTS ARE Pn ato IN HEN OBJECT TAPE. 
THE AVAILABLE TESTS ARE LISTED HERE IN NUMERICAL ORDER: 
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THIS paces 2 ogee TAPE IN ABSOLUTE FORMAT. 
THE ABS LOADER IS USED TOL HE ° 
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OF READERS AND PUREHES IN THE SYSTEM. FOLLOW TYPEE INSTRUCTIONS. 


3.1 RESTART ADDRESS 


THE RESTART ADDRESS OF THIS PROGRAM IS LOCATION 1004. 
RESTART ADDRESS: 1004 
3.2 START PROCEDURE 


IN GENERAL, ALL TEST S ARE INITIATED BY LOADING ADDRESS 
200, DEP DEPOSITING TEST # IN Ten BPcESTER AND HITTING 
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USE PROCEDURE 


PRGO USE PROCEDURE (DESCRIPTION IN SECTION 8.1) 


a. ES REDE TYPE IS ON-LINE 

B. LOAD WITH SPEC aL BINARY COUNT PATTERN TEST LOOP. IF NOT 
USING A LOOP, pare T BE UNDER READ HEAD. 

C. LOAD OF $s 

p: fie Procnan lOeNt IFES 1 Teer TYPES SET UP AND SR OPTION 
INSTRUCTIONS. SELECT ANY DESIRED OPTI 

SR1S=1 T ON ERROR. 

SR14=1 MT SCOPE NODE. 

sit Uielt Fiesaris 

SR10=1 HAL OF 


TION 
T CURRENT ROUT 
Sh? THROUGH SROSNIFEER OF ROUTINE 10 or DEITION, 
nee 7.2 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 
G: REFER me PE hd BAY ERROR ROR PRINTOUTS OCCUR. caeen 
ONE ERROR-FREE PASS WILL FEL FAKE BPPRONTRATELY 10 MINUTES. : 
PRG1 USE PROCEDURE (DESCRIPTION IN SECTION 8.2) 


THAT TS ON-LINE. 
THAT HAS AN ADEQUATE SUPPLY OF TAPE. 


: iuFiee tts feet” AND TYPES INSTRUCTIONS TO 


- SELECT ANY DESIRED OPTIONS. 
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pasesresr eras 


S= T ON 
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FULL EXPLANATION OF SR OPTIONS IS GIVEN IN SECTION 7.2. 


° SS CONTINUE. FOLLOW PROGRAM INSTRUC 
iron COMPLETO OF A PROGRAM PASS THE PROGRAM WILL TYPE 
REFER TO SECTION 6. IF ANY ERRORS OCCUR. 
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164 
165 ONE ERROR-FREE PASS WILL TAKE APPROXIMATELY 10 MINUTES. 
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PRG2 USE PROCEDURE (DESCRIPTION IN SECTION 8.3) 


THAT HL Ab 


HS Tae IPL EP are aor RTE APRs ow ne nro 


: COA aboRe ss 00 PLATE OVER THE READ STATION. 


The Proce PRESS START 
IDENTIFIES ITSELF AND TYPES INSTRUCTIONS TO LOAD THE 


ae ls rp TE UIE 


G. oh OP TIONS AVAILABLE IN THIS PROGRAM ARE: 
1S=1 HALT ON 
3s INHIBIT “PRINT. 


H. REFER TO SECTION 6. IF ERRORS OCCUR. 
Pace bee NOT RESYNC T oT AY Tie IT’S INTENT IS 
aD VERY ERROR HE PUNCH. 


EXECUTION TIME DEPENDS ON LENGTH OF TAPE TO BE VERIFIED. 
PRG3 USE PROCEDURE (DESCRIPTION IN SECTION 8.4) 


8 Tteure The That —e, PUREH. Fas Al ROEQUBTE SUPPLY 0 OF fee. 
; LOR a 1 THLE TREK oF SPECIAL BINARY COUNT 


T READER READY. THE BLANK 
ree ev ieal | tere MUST BE AT THE READ STATION. 

SR : 
nL?) Meagan TO PUNCH 


PROGRAM WILL PUNCH A NEW BINARY COUNT 


Pat teat LE ING ee PREPUNCHED ge GR 2 READER. 
“FREE UNTIL READER TAPE IS 
ae Sti e THE READER POINT A ee arnar ewe JUST P WILL 
AND RERUN THE RRUN THE T 6 TI 
H. THE SR OPTIONS AVAILABLE WITH THIS PROGRAM 


ShlSe1 INMGIT ERROR PRINT. 


I. REFER TO SECTION 6. IF ERRORS OCCUR. 
EXECUTION TIME: PRG3 IS CONTINUOUS RUNNING. 
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PRG4Y USE PROCEDURE (DESCRIPTION IN SECTION 8.5) 


DARE OE RLY SRRES RTH comme 


INSURE THAT TYPE IS ON-LINE. 
AN ADEQUATE SUPPLY OF TAPE. 


a. 
é: LSB ROORE Ss 
p: fhe PROGRAM IDENTIFIES T S rfaeLe aN AND TYPES INSTRUCTIONS TO SET SR 
F. PRES INUE. THE PROGRAM WILL PUNCH THE DESIRED 
oC nA | 

H. THIS PROGRAM HAS nO SR OPTIONS. 

EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 

PRGS USE PROCEDURE (DESCRIPTION IN SECTION 8.6) . 





THIS PROGRAM READS AND CHECKS A TAPE PUNCHED WITH ANY 2 CHARACTERS 
WHOSE CODES HAVE BEEN SET IN THE SR. TO RUN: 


INSURE THAT TELE TES 15 ON-LINE. 
LOAD hroke TO BE READ IN READER. DATA MUST BE UNDER READ STATION. 


L 
ST SR TO PRESS START. 
FOLLOW PROGRAH INSTRUCTIONS. 


THE ei a Se i TAPE _AND REPORT ANY ERRORS. 
THE SR OPTI TLRBLE WITH THIS PROGRAM ARE: 


— @EMNMVDOwWD 
s . . — e oO - 


SR1S=1 HALT ON ERROR. 

SR13=1 INHIBIT ERROR PRINT. 
H. REFER TO SECTION 6. IF ERRORS OCCUR. 
EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 
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PRG6 USE PROCEDURE 


i Ss peageR a ie PNTENDED 08 All AID IN SCOPING AND ADJUSTING 


A. INSURE THAT TELETYPE IS ON-LINE. 
B. OO BL ree. LOOP IN THE READER. ONE’S AND ZEROES LOOP IS 


. ORD 
p: Goat, ? Ee rig faFIeS TTaetr AND TYPES INSTPUCTIONS 10 SET _THE 
76 fale RETER READING THE CHARACTERS. PLENSE Hore. _ 


1. THE LEFT 8 SWITCHES ARE FOR THE NUMBER OF CHARACTERS TO BE READ. 
THE RANGE IS BETWEEN 1 AND 377(8). 


2. THE RIGHT 8 SWITCHES “4 94 FOR SETTING THE NUMBER OF MILLISECONDS 
TO STALL AFTER READING THE NUMBER OF CHARACTERS SPECIFIED. 


F. PRESS CONTINUE. THE PROGRAM WILL CONTINUOUSLY READ AND STALL 
UNTIL STOPPED BY_USER. 

G. THE SETTINGS OF THE SR MAY BE CHANGED AT ANY TINE. 

EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 


PRG7 USE PROCEDURE 


THIS PROGRAM CONTINUOUSLY PUNCHES A TAPE WITH THE SPECIAL 
BINARY COUNT PATTERN. TO RUN: 


INSURE THAT T IS ON-LINE 
MAKE SURE THA PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 


. PRESS START 
THE PROGRAM IDENTIFIES ITSELF, AND TYPES INSTRUCTION 
PUNCH READY. 


MAKE 
PRESS CONTINUE. THE SPECIAL BINARY COUNT PATTERN WILL 
PUNCHED UNTIL THE PROGRAM IS STOPPED BY USER. 
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PRG1O USE PROCEDURE 


dr THE RESOER. If TS ROY INTENDED TO REPLECE REGULON SCOPING 
PROCEDURES FOR SeTtT S CORRECT SPEED 
WITH THIS PROGRAM THE READER SPEED CAN BE MEASURED IN TWO WAYS: 


1. 30 SE PERIOD. PLUS OR MINUS 10 CHARACTER ACCURACY 
e. 300 SECOND (S MINU te MINUTES PERIOD. PLUS OR MINUS 1 CHARACTER ACCURACY 


IN EITHER CASE MEASUREMENT ACCURACY DEPENDS ON THE USER’S ATTENTION : 
TO STARTING AND ENDING TIMES OF MEASUREMENT, AS THE TIME INTERVALS ARE 
DETERMINED BY THE USER USING A SWEEP SECOND'HAND WATCH OR STOP WATCH. 


THE SPECIFIED ACCURACY ASSUMES THAT THE USER WILL TERMINATE THE 
MEASURING INTERVAL WITHIN ONE SECOND OF THE MEASUREMENT PERIOD. TO RUN: 


A. INSURE THAT TELETYPE IS ON-LINE 
B. HOUNT ANY TAPE LOOP IN READER. 
0. SET SR TO 10. RESS START 
Ee OND BAKE READY” AMD TO SELERT DESIRED REACUREHENT PERTODGS OER 
F. PRESS CONTINUE’ RERBY TO St START MEASUREMENT. THE READER 
WILL START RORINTHIE. 
6. BT END OF TINE PERIOD, SET SRIS TO A 1 AND BACK TO O AGAIN. 
THE PROGRAM WILL TYPE READER SPEED IN CHARACTERS PER SECOND AND HALT. 
H. TO REPEAT, SELECT THE DESIRED TI RIOD WITH SR14, MAKE 


T ME PE 
SURE THAT SRIS IS SET TO 0, AND PRESS CONTINUE WHEN READY. 


THIS proene S een AN AID IN DETERMINING THE PUNCH SPEED. 
THE PROVIDED ThE eons D WITHIN ONE CHARACTER ACCURACY 
THE YS CLOSE ATTENTION TO THE STARTING ANC STOPPING 
I PERIOD IS CONT! ea 
He USER US ING A SHEEP SECOND WATCH OR STOP WATCH. THE PERIOD 
USED I SE 


INSURE THAT TELETYPE IS ON-LINE 


LOAD eOURES $5 boned. AN ADEQUATE SUPPLY OF TAPE. 
SET SR 600011 SS _START 


PORCH H IDENTIFIES ITSELF AND TYPES INSTRUCTIONS TO MAKE 


Ress CONTINUE WHEN READY TO START. THE PUNCH WILL START RUNNING. 
AT END OF iS penree te sees Ne SRIS TO A 1 AND BACK TO O. 
THE PROGRAM Wd iLL ee H SPEED IN CHARACTER PER SECOND AND HALT. 
TO REPEAT, MAKE SURE THAT SR SET 


rr tree 


TO AO, AND PRESS CONTINUE. 
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PRG12 USE PROCEDURE 


SUT THE ADDITIONAL Locte AD DED TO THE PUNCH, CONTROLLER THAT 
BAN PRaL THe PROGRANMER 10 ISSUE ~ H RESET” UNDER SOFTWARE 


VAR TS “HANG! THE PUNCH BY PERFORMING 1 
FOLLOWING STEPS. 


O. FIRST MAKE SURE THE PUNCH iF REMY. 


RET BE, St eOGan er ésIii RUN THIS TEST 


BY LOAD NG THE SWITCH REGISTER TO le 
AND RITTING. THE THE ie sit TCH. 
THE PUNCH WILL START PUNCHING A BINARY PATTERN. 


1. REMOVE THE PAPER ROLL FROM IT’S HOLDER AND PLACE IT ON THE RIGHT HAND 
SIDE OF THE PUNCH. (D0 NOT TEAR THE PAPER TAPE AND MAKE 
SURE IT FEEDS CORRECTLY). THE TEST WILL CONTINUE TO PUNCH 
OUT AN ENDLESS STREAM OF CHARACTERS. 


THIS STREAM OF CHARACTERS CAN ONLY BE INTERRUPTED 
BY “HANGING” THE PUNCH CONTROL LOGIC. 


2. TO HANG THE CONTROL LOGIC, TURN THE PUNCH “OFF” VIA THE 


“OFFLINE/ONLINE™ KNOB ON THE TOP OF THE PUNCH, WHILE 
CREC TERS ne BEING PUNCHED OUT. WAIT FOR THE PUNCH 


THIS WILL CAUSE THE PUNCH TO SHUTOFF. 


AT THIS POINT 


% URN THE CONTR CONTROL K Kis back | Kio ~ “AveILRGLE sede Tame THE 
Peale Be cy Be be Te THEN THIS SHUT- OFF PROCESS 
MUST BE REPEA BR ae 


IF THE PUNCH DOES NO NOT HANG, POTART AGAIN AT STEP #2. 


AFTER THE PUNCH IS HUNG, TURN THE CONTROL KNOB BACK 
TO “AVAILABLE”. 


THE PUNCH DOES HANG, THEN THE PROGRAMMABLE INIT 
S READY TO BE TESTED. HITTING “CONTINUE” ON 
WILL C THE PROGRAMMABLE 


LL 
INVOKED. _THE PROGRAM WILL CONTINUE TO 
PUNCH CHARACTERS IF THE INIT I pores, CORRECTLY. 
HE P ROGRAMMABLE 
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| 4 7. SWITCH REGISTER OPTIONS: 
er) SRI4=1 TO SCOPE LOOP ON THE PROGRAMMABLE INIT FUNCTION 
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PRG13 USE PROCEDURE 


THIS PROCEDURE 1S USED 10 TO DETERMINE If THE READER ub iGHT LOGIC 
Rcti? 14 Be oe D OFF inoee Phe che CBAThOL . 
STEPS: 
RUN THIS TEST BY SELECTING IT VIA THE SWITCH REGISTER AND STARTING 
AT LOCATION 200. 
1. PUT SWITCH 8 OF THE SWITCH REGISTER TO ZERO. 
PUT THE READER NUMBER IN THE SWITCH REGISTER 
WHEN THE PROGRAM ASKS FOR IT. 
2. AFTER SELECTING A GIVEN READER VIA THE SWITCH REGISTER, TURN 
THE READER LIGHT "ON" BY PRESSING THE MOMENTARY CONTACT 
“ON/OFF” SWITCH ON THE READER. 


IF THE READER LIGHT DOES NOT COME ON THEN EITHER THE 
LIGHT OR THE SWITCH IS PROBABLY DEFECTIV 


3. ONCE THE READER LIGHT Ten at Hy ores. tv wt 


SWITCH 8 TO A ONE TO T ORS 
THE POSITION OF ae gh Ses 8. IS ONE, nH PROGRAMS 


ISSUES A SOFTWARE COMMAND TO URA ie Hat OFF 
IF THE LIGHT I 
TO A ONE, THEN THE READER LOGIC IS eFECTIVE 


4. IF_THE READER LIGHT GOES OFF WHEN SWITCH 8 IS IN THE 
ONE STATE, THEN THE TEST HAS WORKED CORRECTLY. 


TO SELECT A NEW READER, PUT SWITCH 12 TO A ONE AND HIT CONTINUE. 


TO RE-RUN THE TEST, GO DO STEP 1 AND STEP 2, THEN HIT 
CONTINUE. 


5. SWITCH REGISTER OPTIONS AVAILABLE IN THIS TEST ARE: 


SRl2=1 TO SeLECT A NEW READER TO TEST. 
SR 8=1 TO TURN LIGHT OFF ON READER SELECTED. 
SR14=1 TO DO A SCOPE LOOP ON THE PROGRANMABLE READER 


LIGHT DISABLE FUNCTION. 
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PROGRAM AND/OR GPERATOR ACTION 


NORMAL HALTS 


LOC o0eS02 


S. 
$.1 
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LOC 002032 ROUTINE END HALT. 


Rout 


TH 


See ee Ratinineanintiten 
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OF THE CURRENT TEST 
FOR 
1) 








“? INVALID PROGRAM” 


cet INS 
PRESS 


T PROGRAM NUMBER AND 


: 
: 
# 
oe 
gf 
5 


INUE. 


“?INVALID TEST 


QO-UMT ino. Mo 
denser teshentonlestendenten 
USVESDESDASDESDESDESDESDESIELD 


THE SPECIFIED PROGRAM HAS COMPLETED ONE PASS. 


“PXX END.” 
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ERRORS ARE REPORTED IN THIS PROGRAM BY ONE OF THE FOLLOWING METHODS: 


A. UNCONDITIONAL ERROR HALTS, OR 
B. ERROR PRINTOUT FOLLOWED BY AN OPTIONAL ERROR HALT. 


6.1 UNCONDITIONAL ERROR HALTS 


BELOW Tr ROUGH FEROMARE OR SOFTHERE FAILURE, PROGRER CORTACL 


S TRANSFERRED TO AN UNEXPECTED AREA BETWEEN 000000 


a ae 

l2 - NSTRUCTION TRAP 

Doone PER FIL TRAP 

000046 SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA 
EXCEPT FOR READERS, PUNCHES,AND TTY VECTORS. 


TO FIND WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 
PERF ORM FOLLOWING STEPS: 


8° THE C OnTe OE REGISTER ST "KAD OORESS_ AND EXAMINE. 
ETP Sess Bo Hie ts be'icie ROPE BA 

D 

E 





TE IN LISTING pista PC _VALUE 


Pee EI Me TPH iy RHETT Bc 
EXECUTED 


WHEN THE FAILURE OC 
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6.2.1 


6.2.2 


_ : Soil OF THE TEST ROUTINE A DESCRIPTION OF THE TEST 
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ERROR PRINTOUTS 


a RORRAL ERROR PR TH on OS oe TYPES: 


PRINTOUTS 
NORMAL ERROR PRINTOUTS OUTS 


NORMAL ERROR PRINTOUTS ARE GENERATED BY THE 
DSS HTML ia NORA ct ctr TREES ad 


“PXX TYYY PC 0222ZZ ICNT VVVVV." 













OF THE PROGRAM BEING RUN 
ry 1S THe OF ROUTINE WHERE FAILURE OCCURRED. 


Mead Gavve ore fareee Tires TEST Wes Dore WEN FRILORE. OCCUR 
PEANINGFLL ONLY IN PRGO AND gm, 


CORON ERROR HAL AT LO OoeSie'IF SRI I Ses 


WHEN THIS TYPE Of ERROR PRINTOUT OCCURS: 
Q. IN TH eee eta L By PCOZZZZ2. 
VALUE AN STATERENT i BEL BE FOUND BE FOUND, | AND 
TION A DESCRIPTION OF THE FAI tLL BE 


EXTENDED ERROR PRINTOUTS ERROR PRINTOUTS 


NF ORMAT On oe ERROR aol 
INT Pe IREGMME TON THe ves Ui ORT 
ie FAI oats TPE 
a mt IN PROGRAM eerie 
YPI 


“POS TOOO swpPandgsash sat Fema gm 


aeehe ne Seer s eae 


ERROR SUBROUTINE WHI WIS USED BY NORE 
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PAGE 10 
(6.2.2 CONT’D) 
THE IMPORTANT INFORMATION IN AN EXTENDED ERROR PRINTOUT IS THE 
“EXTENDED” INFORMATION TYPED. SOME OF THE EXTENDED PRINTOUTS 
ARE DESCRIBED BELOW: 
“DATA ERROR S/B XXXX WAS: YYYY” 
DATA READ WITH READER pense WIT CTED DATA. 
S/B XXXX He y 1g THe EXPECT 4 one Pal to IS THE 
BE EASED BY Pos ee Pal ne Hea 
WILL SHOW ie THE TAPE IS PUNCHED CORRE 
“REREAD ERROR. IST READ: XXXX WAS: YYYY" 
THIS ERROR PRINTOUT IS GENERATED BY PRGO TEST1Y. IT wees 


THAT A DID NOT AGREE WITH 
ORIGINAL DATA READ FROM BUFFER. 


“SYNC ERROR” 
SYNC IN Ue PRINTOUT INDICATES THAT A PROGRAM UNSUCCESSFUL I 

Bis ar hele HRT A ae or 

cruel San Pa ee 

EOE BEG EE TM BOS. as. oon 
ONE OR BOTH OF THESE PaINTOUTS 15 ee TED AOE ND CED 
Fin DOES Nore WITH Ith THE EXPE ue DATA. CHECK 
proeatetin Bly 1S PUNCHED CTLY. REFER 10° PRG1 AND PRG2 
“MATCH ERROR” 


UP THE DATA READ FROM THE READER LITH THE EXPECTED DATA As 
precttt pBnénsn aa THAT THE TAPE IS THE ONE TO BE 


TREERE COR UR CONC O SS SR EORE SORA E Le oes on rae Ze 


- 
age 


“FALSE READER INTERRUPT” OR, 
“FALSE PUNCH INTERRUPT” 


THE PROGRAM DID NOT FIND THE ERROR OR 
AN INTERRUPT. POSSIBLY NOISE COULD BE 


ron 
SSSSre 
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° MISCELLANEOUS 
7.1 TEST TAPES 


THE FOLLOWING TEST TAPES ARE RELEASED WITH THIS PROGRAM: 


A. MAINDEC-00-DeG4-PT SPECIAL BINARY COUNT PATTERN TEST TAPE. 
B. MAINDEC-00-DeGe-PT ONES AND ZEROES TEST TAPE. 


Le sah pny OUNT PATTERN TAPE IS PUNCHED WITH A PAT- 
T rece. NUMBER 
Be erie FOLL BY ITS ONES COMPLEMENT NUMBER 


001, 376, 002, 375, 003, 374, 004, 373, ETC. 
DSHS EE IE EE APE PO COAT OER ln 


AY Sig Guemetrens.. TreneCone A RINIRUM SIZE 


Sle 
TEST 1 WOULD CONSIST OF S12 CHARAC 
7.2 SR OPTIONS 


THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 
SR1S - HALT ON ERROR. 


SRM BORRENT TEST ROUTINE Ei BREN THE OBT1ON Ts REN Ne 


BY ITS I ION Gal pet tke GOING ON ON Ly THD ne 


SR13 - INHIBIT belmoure. PRINT. THIS OPTION IF SET WILL REMOVE ALL 


SR11 - INHIBIT TERATION. PROGRAMS CONSIST OF INDIVIDUAL 


Frere reo laa wreente cE or 
pee ictal tele ey 


NG SR11 WILL CAUSE THE PR 


UnICH The SMITCH 1S SET, THO POSSIBLE USES OF THIS. 
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PAGE le 
(7.2 CONT'D) 


A. tonne PASS. WHEN A PROGRAM RUNS OR SEVERAL NINUTES 
RAR QUICKLY Te phy ELECT 0 IF any FAILURES 


Cue te Eacoeah 
Be (GERRI neha UGE" or 


WHEN PERFORMING A NORMAL ITERA 


Hing pe COUNT eS DETECTED A SOLID FAILURE, THE’ ERROR 


WI MANY TIMES. TO GO ON 
RUT Ean et id : 


CERISE me The ProGRa rit MQUTCKLY RUN THROUGH THE 


SR1O -_ HALT AT END ROUTINE. PRGO AND PRG1 CONSIST OF 
ne NMMEERED TEST ROUTE 
PROGRAM T T UPON COMPLETION OF CURRENT ROUTINE. 


SR9 - CT ROUTINE. F Be THAT CONSIST OF INDIVIDUAL TEST 
ROUTINES, Tre USER te ELEC Se CIFIED 


ROUTINE Geo TE THe OPTION. 
PROGRAN WILL PROCEED. TO EXECUTE 
PROGRAM. 


CTED 
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PAGE 13 
7.3 TESTING AT NON-STANDARD ADDRESSES AND/OR VECTORS 


THIS CAN °s Peal RED TO NON-STANDARD ADDRESSES. 
ALL RS _ MUST C VE ADDRESSES, AND ALL PUNCHES 
MUST BE ASSIGNED CONSECUTIVE ADDRESSES. 


A. IMMEDIATELY AFTER LOADING THE PROGRAM CHANGE THE FOLLOWING 
LOCATIONS. REFER TO PROGRAM LISTING. 


ae TON rn 0 TO_NON-STANDARD 
1ST READER CSR ADDRESS 
001222 1ST PUNCH CSR ADDRESS 


8. rng ENE Is = AT NON STANDARD ADDRESSES, PERFORM 


1226 177562 TTY READER BUFFER ADDRESS 
Obie ese iy PRINTER NTERRUPT VECTOR ADDRESS 
Spi 5a8 4 Hy PRINT NTERRUPT VECTOR ADDRESS 
oC {Sus Sooead TTY PRINTER IORITY LEVEL 


i BaF NCAP A DEPT SP 


E. ae ONLY LOCATIONS 001224 THROUGH 001242 IN ABSOLUTE 


Fr Da ale a io Bebo Ton 


OF TAPE Rye TER THE MAIN PROGRAM I 
LOADED, IN OVERLAY LOCAT 105 oles’ THROUGH aBi2ue. 
8. DESCRIPTION 


PLEA eT RP EP Reren hone nnon RARER RRARR Otitis i 


8.1 PRGO PROGRAM | PROGRAM DESCRIPTION " 


PRGO eae Ss ie i READER TEST. IT CONSISTS OF 22 ROUTINES NUMBERED 
TO 24(8). THE PROGRAM USES A SPECIAL BINARY COUNT PATTERN 
fest TAPE LOOP ti ALL ROUTINES. 


pee THROUGH 7c BASIC LOGIC TESTS. ROUTINES 20 THROUGH 24 
Oe eR TES IN ROUTINES 20 THROUGH 24 THE READER 
AILL PRESYNC AFTER 3 DATA ERRORS HAVE OCCURRED. 


Oe 
Ono cWe-O 





a em en ee — eat ee ee ee 


we ce en ee ee a ee 


z 


sf 


CORE RN OUR OSS Ga LORS ABNORM ae NORTE 








az 
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PRG1 PROGRAM DESCRIPTION 


PRG1 IS THE PA611 PUNCH TEST. IT CONSISTS OF 16 ROUTINES reereD 
FROM O00 TO 17(8). ROUTINES 00 THROUGH 13 ARE BASIC LOGIC T 
ROUTINES 14 THROUGH 17 EXERCISE THE BUNCH USING FOLLOWING FORMAT: 


fe ae Se 
.. RODE NUMBER (BE THEEN 0 AND 3) 

D. 4 BLANK CHARAC 

E. Sl2 CHARACTERS OF SPECIAL BINARY COUNT PATTERN. 
RTN14Y = PUNCHES 5 DATA BLOCKS AT FULL SPEED. 


RTNIS - PUNCHES S DATA eat SPECIAL BINARY COUNT 
I WITH 6F te 1 47 MSECS. PATER EACH H ACHARACTER. 


RTN16 - PUNCHES S DATA BLOCKS. THE SPECIAL BI 


ide AE oF WITH Ghannerens oe ie oe UP iP town LLISECONOS 


RTNI? - ‘Pine DATA BLOCK. THE SPECIAL BINARY COUNT PATTERN DATA 
TA pore WITH A S SECOND STALL PRECEDING EACH 32 CHARACTER 


PRG2 PROGRAM DESCRIPTION 


PRG2 VERIFIES THE PAPER TAPE PRODUCED BY PRG1. THE 
PROGRAM CONSISTS OF A SINGLE ROUTINE THAT PERFORMS THE 


FOLLOWING STEPS: 

A. Lo ai CUTIVE O CHARACTERS 
B. OR Sine cna TER (RUBOUT) 

C. OOK FOR MODE # THEN 0 AND 3. 

p- READ 4 


ue Ue ary , SINCE LT Ys INTENDED 
THAT EVERY ERROR CAUSED PUNCH BE REPORTED 








az 
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8.4 


8.5 


8.6 


8.7 





J0e2 


PAGE 1S 
PRG3 COMBINED READER-PUNCH TEST 


REABER CONCURRENTLY. THe” SPECIML BINARY COUNT PRITERH TS USED 


IN THIS PROGRAM 


A. PUNCAES DATA aT FULL SPEED, BE ence CONT 


B. WEN THE CHARACTER COUNT. REAG 


TOP PUNCHING. PUNCHING ui NOT 0,0 UNTIL 

Is T0 THE ROUTINE. 

CHARAC COUNT I 1 OVER 31, READER READS AT 
feign STR LS beh 31 OR LESS THE READER WILL READ 
See onAeT tones or 0, be READER STOPS READING 

ee EPR NT CL thes BE Con 

HE TeeAb ROUTINE WILL RESYiie “AUTOMATICALLY AFTER 3 ERRORS. 


PRG4 PROGRAM DESCRIPTION 


Lm Ps pms Fold} 
ss sos 


rr Ff 
i) 
3" 


~ 





PRG4Y WILL PUNCH CONTINUOUSLY THE 2 CHARACTERS WHOSE CODES ARE 
SET IN SR. THE ROUTINE IS USED FOR GENERATING ALL 0’S TAPE, 
ALL 1°S TAPE, ONES AND ZEROES TAPE, ETC. 


PRGS PROGRAM DESCRIPTION 





READS AND aes 6 TAPE PUNCHED WITH THE CHARACTERS WHOSE 
CODES ARE SET iy SR. THIS ROUTINE IS USEFUL IN SETTING UP 
READ PHOT: S AND READ AMPLIFIER. 


PRG6 PROGRAM DESCRIPTION 





PRG& WILL HE READER FOR THE NUMBER OF CHARAC 
SPECIFIED IN T e LEFT HALF OF of 
FOR crane fe teerus | IF 
THE ane mute B ROUTI IN SET HE 
ACCELERATOR, STROBE, AND FOR CHECKING THE STOP DELA 





K0e 


z 
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PAGE 16 


2s f 


8.8 PRG? PROGRAM DESCRIPTION 


PRG7 PUNCHES THE SPECIAL BINARY COUNT PATTERN CONTINUOUSLY. 
8.9 PRG1O PROGRAM DESCRIPTION 


WOWDOWWwWW 
OO phe am 
WON UI £ LITE 


PRG1O IS A ROUTINE USED TO CHECK THE SPEED OF THE READER. 
READER SPEED CAN BE MEASURED IN TWO WAYS: 


A. COARSE. 30 SECOND TIMING. PLUS OR MINUS 10 CHARACTER ACCURACY. 
B. FINE. 300 SECOND TIMING. PLUS OR MINUS 1 CHARACTER ACCURACY. 
SR1Y mite TES TO THE ROUTINE THE TIMING PERIOD THE USER IS 

GOING TO USE. SRi4=0 INDICATES 30 SECOND TIMING. 

THE USER CONTROLS grt RR A PERIOD BY ING A 
SWEEP SECOND HAND WATCH OR STOP-WATCH. AT THE END OF T 

TIMING PERIOD, SRIS IS SET TO A 1 TO OBTAIN A SPEED PRINTOUT. 


8.10 PRG11 PROGRAM DESCRIPTION 


USES A €0 SECOND TIMING PERIOD THAT IS CONTROLLED BY. THE USER, 
Sern pat END Tt TIMING PERIOD SRIS IS SET TO A 1 TO OBTAIN A 


8.11 PRGle PROGRAM D DESCRIPTION 


RODED YO fue PUNCH CONTROL LOGIC. THe: PROGRAM PUNCHES 
ENDLESS curt oN Us rey: Aes ores Q HANG THE 


BY OFURNING We 
LOW SENSOR SWITCH 


NG 
TS PUNCHI IF T "PUNCH CYCLE HAS NOT BEEN 
ta ae WILL REMAIN LOW THE PUNCH WILL HANG. 


THE PROGRAM SENSES THIS CONDITION IN A WATCHDOG TIMER LOOP. 
WHEN Ta ae ate ee ne PUN IS HG, THEN IT 


TIMES OUT AND HAL 
a THE OPERATOR HITS THE CONTINUE WITCH aN INIT PULSE. IS 
ae bees NOT EFF E OP OTHER Bevices ON THE BUS. 1} 


UPON HITTING THE CONTINUE SWITCH, 
THE PROCESS REPEATS ITSELF. 


ana AO al REE Se RANI STR SE SGN Bi la 


8.12 PRG13 PROGRAM DESCRIPTION 





a ct ce a eT 
ao 
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ES PER FB SES AES TLE PCE 


ASSUMING THAT THE READER LIGHT IS ON, THE STEPS PERFORMED 
BY THE PROGRAM ARE: 


1. GET THE ADDRESS OF THE READER TO BE TESTED (READER 
IS SELECTED VIA CONSOLE TTY RESPONSE) -. 


2. CHECK SWITCH 8. IF SWITCH 8=1 THEN ISSUE A COMMAND TO 
URN THE LIGHT OFF. IF SWITCH 8=0 THEN RECHECK THE 
SWITCH AND LOOP 
ON THIS STEP. 


3. CHECK SWITCH le. 
IF SWle=1 THEN GO TO STEP 1. 
IF SWle=0 THEN GO TO STEP e. 


M02 
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;STORED IN DECTAPE LIBl2 - MIKE MITCHELL 3/75 
j TYPESET 11 READER-PUNCH 
: COPY RIGHT ti2e, peti EQUIPMENT CORP., MAYNARD, MASS. 


.ENABLE AMA 
.LIST ME 
“NLIST MO,SEQ 

sPRGO - READER TEST 

*PRG1 - PUNCH TEST 

*PRG2 = PUNCH VERIFY ROUTINE 

:PRG3 = COMBINED READER-PUNCH TEST 

?PRGY = PUNCH 2 CHARACTERS FROM SR. 

=PRGS - READ 3 CHARACTERS RS, PER SR. 

PRG - READ X CHARS, STALL Y MSECS. 

sPRG? - PUNCH SPECIAL BINARY COUNT PATTERN TAPE. 


3 


; PRGIO ~ READER. SPEED. PRINT, ROUTINE. 
;PRG11 - BUNS INTE ner ROUTINE. 

;PRGle - 

;PRG13 - READER LIGHT TEST. 

y 

;SR 1S - HALT-ON-ERROR. 

;9R 14 - SCOPE. 

39R 13 - INHIBIT ERROR PRINT. 

;SR 11 - INHIBIT ITERATION. 

35R 10 - HALT AT END OF CURRENT ROUTINE. 
;5R 9 - SELECT ROUTINE. 

;SR _8 - TURN READER LIGHT OFF (PRG13 ONLY) 
;5R 7 THROUGH SR O - NUMBER OF ROUTINE TO BE SELECTED. 
;PAG11 ADDRESSES: 
IPUNCH........-2.-772776-7727 00 
;READER.......-.22. 772676-772600 
;RDRO-------172600 

;RDR1-------172604 

fo mee 1 

sRDRg-onn owen 172614 


vine gp am aet an pais eb 7 AT 5 pa, Nang AR CU oul RS ed 
et a Z 





000000 ° 
iii aeer ;UNASSIGNED TRAP 
000006 MACHER: arr ;SP OVERFLOW, BUS ERROR TRAP 
cae Aner ;RESERVED INSTRUCTION TRAP 
002336 TRCV: SV5S ; TRACE TRAP 
000340 PRTY7 
002366 IOTV: Boe ; TRAP TO CALL IOX 
try ;POWER FAIL TRAP 
002136 EMTV: EMTINT ;EMT TRAP 





poe ee ee 
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O4-NOV-76 le: 
ue PRTY7 
ane anes TRPV: ant ; TRAP TRAP. SIMILAR TO EMT. 
000036 tor RTI tEXIT TRAP CALL. 


=40 
;LOCATIONS ist ee 776 ARE FILLED WITH .+2 AND HALT. 


-LIST ME 
; EQUATE STATEMENTS 


12 ee af es 
000240 
NPENCOL 
100000 MANUAL=BIT1S 
100000 BIT15=100000 
040000 BIT14=40000 
020000 BIT13=20000 
010000 BIT12=10000 
Bas HHS 
O01 BIT9=1000 
000400 BIT8=400 
00200 BIT7= 
000100 BIT6=100 
000040 BITS=40 
o00020 BIT4=20 
000010 BIT3=10 
000004 BIT2= 
oo0002 BITi= 
000001 BITO=1 
000000 RO=%0 
000001 Ri=%1 
oo0002 Ro=%2 
000003 R3=% 
000004 R4=%4 
000005 =45 
000006 R6=%6 
000007 =%7 
BK hae 
S24646 PUSH2=024646 
005726 POPSP=005726 
nave PRTVPeaHOe 
PRTY7= 
000300 PRTYb= 
000240 PRTYS=240 
000200 PRTY4=200 
000140 PRTY3=140 
000100 PRTY2=1 
| 0 pa hsae 
TYO= 
LL= 
| POTLST=-1 
| 
j 
i 


os-NOv=F6 
T=40 
A=BITIS 
ue 
< its 
eset b 
MTx=0 
SAVSS=3 
RSTSS= 
ae 
sommes KBSVC KEYBOARD VECTOR SETUP. 
PRIY? ‘STATUS UPON KEYBOARD INTERRUPT. 
000200 IHF 0 START :GO TO START OF PROGRAM. 
NOP 
eh NI RE T SHITCH, 
IMP TAR oor it T OF PROGRAM 


el aol ae ed ed ed 
58 


ee 


iy 


toe 

rw 
== 
io” .£ 

+ 

} 

; 
< 
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| 

| 

| 

| 

; 

| 

| 


00 

00 

ut PRTY4Y : 

OPEN ; 

00 PRTYY PUNCH PRIORITY LEVEL 

Baisee i FeTPH: 172700 ADDR OF eT PUNCH 

fies | ig ee tet ren 

51558 177564 TPS: P7864 LSP CSR 

molen oo0ees tir: 40° iteR T VECTOR 

55 Teves pervs te Int PT VECTOR 

BBlete TPL: Pars ite BRIORITY LEVEL 

4 ae 

a Scie SERS SRG a 
| fot cuntats ieouralne Ge er 
| oat nxt OPEN seal eet TésT. 
# ee Eee 
Ae thy OPEN a ree. 
| ae * Pred PRL 

001 ones : Tet Ss 

001306 PRGY SPRGY START 5S 

00131 PRGS 3PRGS START Ss 
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: f 
& ~ 
ak SSicnescPPCRMEGEEYees 2 
wae SG perrreniivoseeeenenienie - 
Si 5 EEREEEEEEEEREEEEEEEEEEEEEE © 
eee GS gy ee F 
Gao Foe & SEBSEBEBESBEEBEBBERSES 5. °F 
haa oeanccneecrecrecress: a = - bila 
5 Boe 
é ¥ eget 
o- cum E* ets 
iT RRS anal afc bab DEE apeee 
b apeeetee tite: [ re 


ann 


ete teeny 


ain oe en Lists ee = a9NESSNEAPYES Ro32 


fa pean hee det en hee on ban Lam Loan bon pam bom bam ban Lan ban bam han Late ban Mi on ban bom bam bom bom Biidon bon Lon hoon bende Rete been bore bene Len Soon bee Loon bere, bern bm boon bom Lom ME oe Dee Doe Doe] 


; Sass 88 8888888888s8ssss ‘BBBESSssocssasessssssssssss 8888 





ete re eee ee ne ee a me ee me me ee ee ee 
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001464 012712 PGTIT 
001 TYPES sTYPE INSTRUCTIONS TO SET RDR O VECTOR. 
rath eg fees 
pla CHALT 
Bbisob AOs983 177570 o01244 MOV SR,FSTVCT ;SAVE RDRO VECTOR. 
: i are? sELEOR ‘TYPE INSTRUCTIONS TO SET # OF READERS. 
| 
yl 1306 3 
Biel? i -] 
pleas 1057 177570 001246 one SR, RORLIM 2 
pptese toaoit TYPES ¥ i RE INSTROC TIONS TO SET # OF PUNCHES. 
ate 01001 mt IM23 
1 1 =| 
ot 1 CHALT 
mies Liga? 177570 001250 MOVE = SR, PCHLIM ;SAVE 8 OF PUNCHES 
1546 era 177777 O0le52 MOV e-1, INITD * INITIALIZATION COMPLETE 
155s i 10 INF "RESTART MESSAGE. 
ooise0 iis CHALT 
1 BR 2 
001564 01 000340 177776 STRTA: MOV #PRTY7, PSW ;SET PRIORITY 7 
bo157e 004 005134 ISR PC, CLNUP :60 
001 01 177570 MOV SR; RO :GET NUMBER 
oo! 17 BIC #1 »RO 
1 re Mp RO, #1 ;VALID PROGRAM NUMBER? 
OOl6i2 101 BLOS STRTB *BR IF YES. 
miele i 19 Tyee *TYPE INCORRECT PROGRAM MESSAGE. 
1 CHALT 
1 : BR TRTA s TRY AGAIN. 
oat 1 001254 STRTB: MOV , PRGNUM : PROGRAM NUMBER 
| RIES Seser Notltee 
at 170 001276 ie @PRGTAB(O) $8) 1B SELEETED ‘ 
DO1bNG 10401 SRSET: TPES “TYPE SR OPTION MESSAGE. 
Bits Ye we 
| Doles O1a7a7 012s 00 v: HOV KsTaRT,wxtst MIST ROUTINE TO NXTST 
001 T7777e GTROYX: OV TY7,PSW : pRioRITy ‘ 
00 16bb 1 1 MOV #SPBOT, Rb : OM OF STACK. 
| 001674 gge076 GTROVA: ci R7,F ; Fi ) TO “NEXT” ROUTINE. 
| 001 I 177570 : BIT t : INE SWITCH 
001 ; CT TINE SWITCH IS SET. 
00171 1 GORUN: T GO RUN ROUT é 
boi 4 Ol 177570 GTROYC: MOV RO (SR) TO 
| i RL Sgn 
way 1262 RTNNO, ; TO (RO) 
ot 1 Q GORUN *BR IF INE FOUND. 
| 001 022737 177777 O01264 GTRDYD: CMP #-1, NXTST "NO. CHECK FOR LAST ROUTINE. 
| 
| 
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Of © Pe hen Pan Bs fo Ps He 


888 
=o 


= 

- 

Au 

~ 
tee 
£m 


ix 
Candee 





Serna 


ee te 


RRen Rakes Rik 
BRGR DEESR YORE 


Pes fe Bat a ee ek oe 


i: 


eZ 
ds 
gi 


Dun See 


s 


Q4-NOV-76 12:14 PAGE 30 


le:11 


177570 


177570 


177570 


177570 
001264 


001266 


002242 
od2e42 


od2e42 


BNE GTRDYA : H IF NOT LAST ROUTINE. 
TYPE TYPE INCORRECT RTN SELECTED. 
GHALT  ceTROY OR OVER 
CHAINN: MOV #SPBOT, R& tReet TACK. 
INC cnt : Ine ITERATION COUNT 
HNAC BR I T NOT 
COM ICNT "RESULT O. RESET ICNT TO -1 
CHNAC: iT 481714, SR ; CHECK fi THON. 
CHNAB: JMP aSCOPTR RETURN TO ROUTINE. ‘ 
CHNA: BIT #81711,SR TEST INAIBIT LTeRATION SWITCH 
BNE CHNAA : I Ii BIT ITERATION SW SET 
DEC icrr +P OREHENT ENT TERA TON COUNT 
CHNAA: BIT sBIT 70,SR ROUT THE EN HAL Sh SET? (SRO) 
MOV STN NRO, RO A ae 0 Ne 
HALT sROUT END HALT. TEST # IN LIGHTS 
CHNB: BI #BITS,SR > CHECK CT ROUTINE SWITCH 
BNE GETRDY *BRANCH IF SELECT RTN SW SET 
CMP #-1 NXTST LAST TEST? 
BNE GTROYX *BRANCH IF NOT LAST TES 
OACNV :CONVERT PROGRAM NUMBER TO ASCII 
as tal 
Fyre TYPE PROGRAM END BELL. 
BR GETRDY GO REPEAT PROGRAM. 
FORWD: MOV NXTST,RS : INE TO RS. 
ie | Yu eu te 
MOV (5)+/NXTST : ° ROUTINE. 
HOV (5)4, 2CTR GET ITERA TON COUNT. 
FORWDA: MOV Ke eF $ROOR_OF HOW CURRENT TEST TO CuRTST. 
a al SPREE FOAM SUBROUTINE 
EMT NTERPRETER ROUTINE. ; : 
igtints MOV RO, -(6) : RO. 
MOV (6), Ro : : 
ORD iTIMES 2. 
TAB-10000(0), RO > FORM ROUTINE ADDR. 
eae mis - ee ".G0 TO EMT ROUTINE, RESTORE RO. 
S03: MOV (6}4,-10.(6) ; PC UPSTACK. 
HOY ( Mel (6) i AOVE STATUS UPSTACK. 
a 
jSue TO SAVE rece use S AND PLACE EMT PC IN RS. 
-SUB TO SAVE REGS 0 TO 
6v0S: MOV #RTI,S 
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ee 


an 


— 
r 


v-_ 


SGaAaSS ig SSSSSSS 


ina em 
oo 


eSSDEees Eoeees 






;MOVE PC AND PSW UPSTACK. 


;RESTORE REGS O TO 4. 


;MOVE PC AND PSW DOWN STACK. 


sEXIT, 
PC AND RESTORE REGS 0 TOS 


Raz 
ge 


oe 
o 


oo SSRZHN—o OH 


oO 
i 


ee 
—deo 
oO 
— 


| ion han te hoe ten and 
'* +$++4+44 


rm ee 22 © 


Ke OOOroo 


meSeessesenennesese 


Tape : 
=o VSt Stat See eH ee 
z@ 
ry 
R° PRs 
e oo 
oo 
— 
nh *- 


asepeeee 


a 


@ 
~ 


;SET EMT PC TO RS CONTENTS. 


;MOVE PC AND PSW DOWNSTACK. 


;EXIT. 
;PC AND PSW UPSTACK. 


;RESTORE RY. 
;RESTORE RS. 


“EXIT. 
5 ISSUE RESET AND ENABLE KEYBOARD INTERRUPTS. 








;DATA TO RO. 
;COMPLEMENT (RO). 






z 
. 
fs 


aS FS 


Bf 


; 


i ey Sa ee 


~ 


+4 


ees E 


= 
Pe 










002416 


000042 
000100 


000003 
ooco4e 
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;(RO) TO SRSETT+4. 
RESET. RO IS DISPLAYED. 


ERE A a DECTAPE? 
KEYBOARD INTERRUPTS. 


ssa dex 
R IE YES. 


EXIT. | 
sBxiT TO DECTAPE MONITOR. 


KEYBOARD SERVICE ROUTINE. 
VC: MOV 


MOV ase, PC 
;COMMON HALT ROUTINE 
HLT: SAVOSS 

OF CALLER. 
{HALT CALL ADDR IN DATA LIGTHS. 
CONDITIONAL ERROR HALT ROUTINE. 
SR ;CHECK FOR HALT ON ERROR. 
a IF NO HALT DESIRED. 


;IN DATA LIGHTS. 
;SET UP FOR SINGLE MESSAGE. 


;SET UP FOR MULTIPLE MESSAGES. 
;CONVERT CALL ADDR OF SUB CALLING. 


z 
A 
oe 


eryagaats 


: DETERMINE CALLING ADDR. 
;CONVERT CALLING ADDR TO ASCII. 


;CONVERT PROGRAM # TO ASCII. 


;CONVERT TEST # TO ASCII. 


;CONVERT ICNT TO DECIMAL ASCII. 





He 


ADER 1 IF NOT INHIBITED. 


a= 
—~ 


3 












HO3 
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002654 ERRB: OPEN sDESIRED MSG ADDR GOES HERE. 
O0eb58 ERRNB: OPEN iNOF OR 406 
002 rl 002654 MOV (S5)+, ERRB GET ADDR OF NEXT MSG. 
Soeb64 Oee 177777 002654 CMP ¥1 BRRE : TERM athe a 
ose sg mebase ERRNC: BNET iB OF halt Hs REQUIRED. 
0026 RSTSS RESTORE RE 
riety oo0002 RTI “EXIT EMT Eig 

cael OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
rie bt (5)+,R0 ;ADDRESS OF MESSAGE TO RO. 
002706 112001 TYPA: HOVE (0)+/R1 GET CHARACTER 
002710 ise7o 000100 CMPB ~=s-s«#100,,R1 *CHECK FOR"a" CHARACTER 

14 001 BNE cc TYPC BRANCH IF NOT"d”. 

vie booobe RTI s TERMINATOR CHAR. DONE. EXIT. 
ooe?ee iee70l 000045 TYPC: CMPB 4#45.R1 ; CHECK FOR"%" 

141 BEQ T ‘BRANCH IF"%” 
002730 002736 ISR R/ TYPD *TYPE CHAR IN R1 
sae ryt 176270 TYPD: MOVB  RI,aTPB sOQUTPUT CHARACTER TO PRINTER 
tiene Ibtarg 176262 TSTB ss aTPS WAIT FOR DONE FLAG. 

RTS R?7 sEXIT 

002752 ie701 000015 TYPF: nove H15,R1 sHOVE CARRIAGE RETURN CODE TO R1 
nae] ei neeae TYPG: nove #12,R1 ROVE LE ie TO Ri. 
002765 004737 002736 R7, TYPD GO TYPE CHAR. 
oe a Bis, 

-SUBROUTINE TO OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 
thd Ess, TPs: soy (5)¢ T OF ME TO TYPSB. 
35335 l CMP sei ese Gece FOR FERMTNA oon 
003010 001002 BNE BRANCH IF NOT TERMINATOR. 

D039 TSS 
003014 i TURCUNTOR EXI IT 
TyPSA: T CALL oN TYP ge resents Ges (eke MESSAGE 


£60 
ppencuT SS TO DELAY 4 SPECIFIED’ NUMBER OF P MICLISECOROS 


OLYN: MOV DLCNT 
ADD a2 te) iT UP OP exit PC. 
Rov . BDL CNT, RO iDELAY COUNT TO RO. 
000303 DLYAN: #303,R1 *1 MSEC COUNT TO RI. 
DEC Rl a i DECRENENT 1 MSEC COUNT. 
E Bi Se MENT BEL ay COUNT. 
OLYAN BR IF NOT DONE DELAYING. 
DLYCN: RSTOS3 


RT ;EXxIT. 


ET BROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
177777 003136 {NBINN: MOV , RIND SET ALL VARIABLES 


= 









pats 003142 HOV ae 

Boat se 003144 MOV RIND, PTL 

Beste MOV RIND’ RTS 
hen RT i sEXIT. 
PIN: 
P E N 


NP: 
“SPECIAL BINARY COUNT PATTERN SUBROUTINE (PUNCH) 
VIOUS BIN CHAR TO PTI 


ste 
ar 


Be BS88 


poe boo bo bmw O—= b= bb ho Ho fh bs Pe HP P= pe 


003142 003144 &TBINP: MOV PTO,PT1 ; PRE 
OM PT 


I03 
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003144 NC T 
001346 003144 BIC PCHMSK , PT1 
rt 003144 142 MOV PT1,PT0 -SAVE BIN CHAR IN PTO 
003144 4 MOV PT1’BINP ‘BIN CHAR TO BINP 
003144 O01 MOV PT]; T 
RTI -EXIT. 
SPECIAL BINARY COUNT PATTERN SUBROUTINE (READER) 
go32%4 003146 003150 &TBINR: MOV RTO,RT1 PREVIOUS BIN CHAR TO RT1 
003150 COM RTL 
003136 COM RIND 
0031 ite RT1 
1 bosiae ORT Ti Ron VE BIN CHAR IN RTO 
OU ‘ . : 
tasers 03150 002 18 nov RT1,BINR iBIN chen 0 BINR. 
“EMT SUB TO CONVERT OCTAL TO ascir. 
90330 BACNYV: SAVOSS ; SAVE ; 
MOV a(5)+,RO GET OCTAL VALUE. 
0033 g MOV (5)+,R1 GET DESTINATION ADDR. 
MOV (5)+'Re GET CONVERT : 
4 ADD R2, Ri *DEVELOP ADDR TO STORE 1ST CHAR. 
- OACNVA: MOV RO 
BIC 8177770, R3 ; ISOLATE T SIGNIFICANT DIGIT. 
#60,R3 “CONVERT DIGIT TO ASCII. 
MOVB Ra, o(1) :STORE ASCII CHARACTER. 
ee 
ROR RO 
Be OACNVA SO OACH TF AGT DONE. 
oss RESTORE REGS. 


EMT sus 10 MOVE VARIABLE NUMBER’ OF BYTES.” 


BNOW: 
MOV 


;SAVE REGS. 
(5)+,R1 : GET“FROMADDRESS 





2 





; GET” TO"ADDRESS 
GET ut 


ak ROT DONE. 


R 
-EMT SUB TO CONVERT BINARY TO vere fa. 





3 


M 
DE 
RFT 
+ Rove 
MOV 
HOV 
MOV 
HOV 
HOV 
HOV 
JSR 
Bre 
SUB 
HOV 
- 

: SUB 
BCS 
px 

‘B® 
HOVB 

: oe 

: 10000. 
1000. 
ie 
10. 

ie 


BYTE 040,040,040, 040,040,040 
;EMT RANDOM BUMEER GENERATOR. NUMBER IS STORED AT LOC AFTER SUB CALL. 


SAVOS 
MOV 
ROL 
AOD 
MOV 
ROL 
ROL 
ADD 


a 
= 


Bz 





er ne a ee ee ee 
i 





rie to 7 DECIMAL ASCII IN RO 


cae Ki: BOCNVC. 


STRING TO R2. 
ve Fouen Oe"? 3 TEN EN VALUE TO TERPUR. 


PONE CS” g AVERCT ONG? 
; BRANCH T YET S. 


;RESTORE REGS. 


CLEAR DL TEN POWER FROM BINARY VALUE. 
'BRANCH IF UNSUCCESSFUL SUBTRACTION, 


:COnVERT tbiairs 0 RectT 


I CHAR TO DECVAL FIELD. 
XT. 





PAB11 
DZPARA. 


gee d 


abais G2E6E5 SSG cassadanssccoossecenre® Gy Geena 


MACYL1 274 
04 


ee | 


006 ) 


ee 


de 


= ee 
ae 
~~ 


ee 


se 


O00 
bes i oll oe ool 
ae OF ba ee 


89 -—— 
a8 BSN§ 


eee 
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le:11 


R 
MOV Ay RP2 
003632 ae RPL, (5)+ sSTORE # AT LOC AFTER SUB CALL. 
ri: RTI EXIT. 
REA pe Peso RANDOM NUMBER GENERATOR. 
001233 003632 {NRNON: MOV #1233, RP1 
007622 003634 NOV $7622" RPP pan 
- ROUTINE RY FETCH A CHARACTER °* 
175320 AREAD: INCB  a@PRS ;READER ENABLE. 
i ‘WAIT 12 MSECS FOR READER DONE. 
175310 STB : SET? 
BMI a ‘BR IF YES. 
{WAIT ADDT’L 18 MSECS. 
175276 18+ PRS sREADER DONE NOW? 
BMI ARDB BR IF YES 
ERRORN ‘ERROR. NO READER RESPONSE 
BR AREAD sTRY AGAIN 
— ARDB: oR BRD ERE ves. 
RTS “7 :NO. Exit 
003732 ARDC: JSR %7, TSM2 :TYPE READER ERROR MESSAGE 
BR AREAD * TRY AGAIN. 
TSM2 ERRORN TYPE READER ERROR MESSAGE 
IM6 
RTS “7 EXIT 
“ROUTINE TO SET READER INTERRUPT’ VECTOR AND PRIORITY 
po0000 003764 STPTRV: MOV a(6),STPRA+2  ;MOVE VECTOR ADOR TO STPRA+2 
090 R00 4 ai is :SET UP EXIT 
STPRA: MOV #OPEN, l1)+ ;SET VECTOR ADDRESS 
lele nov RORLVL, (1)+4 jDET PRIORITY 
sROUTINE TO SET PUNCH INTERRUPT dectoR AND PRIORITY 
004014 STPTPV: MOV a(6) piPrate ;MOVE VECTOR ADDR TO STPPA+2 
800 ne, 3% ee pe UP EXIT 
STPPA: MOV #OPEN, t1)4 iS VECTOR ADDRESS. 
MOV PCHLVL, (1)+ vafoRtry 


REN Ha READ CHARACTER rade Fee ee INTERRUPT. 


;DELAY APPROX. 150 MSECS. 


4 a uae) T 
900101 175142 a #101 , PRS iene BTR AND PTRI. 
072460 004150 MOV #30000.,BRCTR ; 








a 
: 
o 
4 


senesen 


BS b+ G+ Fb Ps Pe he Me ph Bs pa pe Be Re 


FEREH SFEHSENBPRTORS 





27(1006) O4-NOV-76 12:14 PAGE 37 
oY 
005337 004150 DEC —_ BRCTR 
001375 BNE a 
175116 CLR, aPRS te PTRI EN 
16 ORN TPE NO NO PTR RECPRNSE 
15337 
77777 -1 
BR READ T : 
175102 BREADA: CLR PRS RR RORE ANDER CSR. 
0 175100 001334 MOV «PRB, CRBUF ‘CHAR READ TO CRBUF 
Oh eRe RIS «47 tEXIT SUBROUTINE 
022626 BREADB: POPSP2 tRESTORE ST 
1 000340 177776 MOV #PRTY7, PSW ‘SET UP PRT 
175056 TST — PRS : TEST FOR ERROR 
TE 003732 J pre Toh : - 
Boaeas BRtAB ; 
1 175042 BREADC: TSTB JPRS sTEST FOR DONE BIT 
1 BMI BREADA H IF DONE 
104016 ERRORN ERROR FALSE REABER FATERRUPT. 
015361 EMO 
177777 > 
000726 BREAD 
000000 BRCTR: OPEN 
: SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL 
’DETERMINED BY CONTENTS OF LOC STLMSK. 
104024 STAL: ;GET 
STLA: N ‘NUMBER GOES HERE. 
043737 BIC  STLMSK,STLA § }APPLY STALL MASK. 
T ‘BRANCH IF RESULT IS 0. 


BEQ 
MOV TLA, STALA 


DELA 
ag oy be ay 





TLMSK: * STALL 
jSuBROUT INE TO GENERATE RANDOM CHARAC Fen C0 COUNT (1-77) 
rats BRCNTA: : NUMBER 6 
004230 o04206 BIC RCMSK,GRCNTA § APPLY MASK. 
Q GRCNT : TRY AGAIN IF RESULT O 
004206 004232 H y GRCNTA, RNCNT : TO RNCNT 
000000 ; RANDOM CHARACTER MASK. 
000000 OPEN *RANDOM CHARACTER COUN 
RD io CONF ARE DATA READ FROM READER AGAINST EXPECTED. DATA AND REPORT ERRORS. 
so4087 BCHECK: GETBNR BIN CHARACTER 
003152 001334 NP BINR, CRBUF ic MPARE BINR TO baTA IN CRBUF 
001001 + ‘BRANCH IF NOT (ERROR) 
000207 RTS ra OK. EXIT 
D401? ORCNV 
104017 
1334 
015101 
000004 
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ae ee eo ee es eee 


Lcibigtetentibertgitarininaaeit 


: 


Reoro mm 
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8 


cea 


e 


: 


es 


a yane 
ra 
o 


aN 


Hee & 


2-20 


x 


MO3 


“SY lia 12:14 PAGE 38 


ERRORN 
EMI 
dtc ERCTR ;DECREMENT ERROR COUNTER 
B +6 ‘BRANCH IF NO THIRD ERROR 
J R 22, BSYNC 3 RESYNC THE READER. 
»SUBROUTINE TO SYNC THE READER Tb A SPECIAL BINARY COUNT PATTERN TEST TAPE. 
RSYNC: INBIN s INITIALIZE BINARY PATTERN 
JSR 47 , BREAD ‘READ CHAR. 
ISR %7,, BREAD "READ CHAR. 
JSR %7" BREAD *READ CHAR AND STORE AT CHRI 
MOV CRBUF . CHRI 
JSR %7, BREAD ;READ CHAR AND STORE AT CHR2 
MOV CRBUF , CHRe 
JSR 47, BREAD ;READ CHAR AND STORE AT CHR3. 
MOV CRBUF , CHR3 
JSR 47, SYNCA GO SYNC 
ER BSYNC *NO SYNC. TRY AGAIN. 
MOV #3, ERCTR 
RTS “7 ; SUCCESS. EXIT. 
SYNCA: SAVOS 
MOV #512. ,RO ;SET UP FOR S12 TRIES. 
SYNCB: GETBNR GET BIN CHAR. 
MOV BINR, Ri STORE AT Ri. 
GET BIN CHAR 
MOV BINR, R2 STORE AT R2 
GETBNR GET BIN CHAR 
MOV BINR, R3 STORE AT R3. 
CMP R1, CARI “MATCH ON 1ST WORD? 
BNE SYACC : NOT. 
CMP Re, CHRE *MATCH ON 2ND WORL? 
BNE SYACC *BR IF NOT. 
CMP R3, CHR3 ?MATCH ON 3RD WORD? 
SYNCC BR IF NOT. 
RSTOS 
R00 #2, (6) SET UP SINCED EXIT. 
SYNCC: DEC RO : TRIED Sie TIMES? 
BNE SYNCB BR IF NOT. 
ERRORN *YES. SYNC ERROR. 
~ 
RST 
RTS PC | -SYNC ERROR EXIT. 
“SUBROUTINE TO CHECK FOR PUNCH READY. 
GPRDY: TST aPPS sTEST FOR ERROR BIT. 
M CPRDYA "BRANCH IF ERROR BIT SET. 
TSTB = APPS TEST FOR READY BIT. 
BPL CPRDYA *BRANCH IF READY NOT SET. 
RT “7 *OK. EXIT. 
CPRDYA: *TYPE NOT READY MESSAGE. 
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000763 


paar? 
0 








) 
6 1 


ae 


001332 
174426 


F—4 Dt bee Bae 


S85 
be ha pt pb hae 
Bet 
> > ~ 


177570 


OY-NOV-76 12:14 PAGE 39 
2:11 


332 
174434 


001250 


001246 





NO3 


BR CPRDY 
Rech Jen" “ae GeRDy =” "ycD CHECK FOR PUNCH READY. 


PCHMSK , PCHOUT 
MOV PCHOUT, aPPB ;L0R0 PUNCH BUFFER. 
TSTB = APPS ‘WAIT FOR DONE. 
RTS 47 :DONE. EXIT. 
-SUBROUTINE TO SELECT PUNCH TO BE TESTED/USED. 
PCHSEL: TYPES sTYPE SELECT PUNCH MESSAGE. 
SPCHM 
hes 
CHALT sWAIT FOR USER. 
CMPB = SR, PCHLIM *VALID PUNCH NUMBER? 
BLO PCHSLA : YES. 
TYPE *NO. TYPE MESSAGE, AND 
BR PCHSEL GO TRY AGAIN. 
PCHSLA: MOV SR, PPS ‘DEVELOP PCH CSR ADDR. 
ASL pps 
ASL PPS 
ADD FSTPCH, PPS 
HOV PPS PPB ;DEVELOP PCH BUFFER ADDR. 
MOV RDRLIM,PCHVTR  ;DEVELOP PCH VECTOR ADDR. 
INC PCHVTR -IF RDRLIM WAS ODD INCR TO MAKE IT EVEN. 
ROR CHVTR 
ASL PCHVTR 
ADD SR, PCHVTR 
ASL PCHVTR 
ASL PCHVTR 
ADD FSTVCT, PCHVTR 
MOV #177400,PCHMSK ;SET UP PUNCH MASK FOR 8 LEVEL. 
TST SR *8 LEVEL PUNCH? 
BPL PCHSLB *BR IF YES. 
MOV #177700,PCHMSK NO. SET UP & LEVEL MASK. 
PCHSLB: OACNV ‘CONVERT SELECTED PCH NUMBER TO ASCII. 
APCHID 
TYPE ;TYPE PCH SELECTED MESSAGE. 
PCHIDM 
RTS PC -EXIT. 
-SUBROUTINE TO SELECT READER TO BE TESTED/USED. 
RDRSEL: TYPES ;TYPE SELECT READER MESSAGE. 
SRORM 
Imes eer 
CHALT ;WAIT FOR USER. 
CMPB SR, RORLIM “VALID READER? 
BLO RDRSLA ;BR IF YES. 
TYPE ;NO. TYPE MESSAGE AND TRY AGAIN. 


BR RORSEL 
RDRSLA: MOV SR, PRS ;DEVELOP RDR CSR ADOR. 










BO4 
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005016 ASL PRS 
0551 Bb FSTROR, PRS 
HOV :DEVELOP READER BUFFER ADOR. 
30S) MOV ie :DEVELOP RDR VECTOR ADDR. 
? aat 
bE ADD Fenvcr, PORVTR 
5 MOV #177406 * Te up LEVEL READER MASK. 
o0Si02 ¢ TST READER? 
Ope oar Rese 
11 MOV #1] , RORMSK KO. 15 P & LEVEL MASK. 
0051 : OACNY S| CTED ROR NUMBER TO ASCII. 
0051 } cR 
aha * 
- 1 T ;TYPE ROR SELECTED MESSAGE. 
eee ia 
134 1 CLNUP ICNT 6 Ae ON COUNT. 
ae Bi oee eR AFNNO a CURRENT ROUTINE NINBER. 
14 Ol 909003 001344 Hoy TR 
| oe 1Se 1 1 HOV s rR RRA TERRUET VECTORS. 
eats] peat on CLNUPA: MOV 9302 Re 
OOS164 CLR (1$+ 
ib 001000 CMP R2, 1000 
9051 1403 BEQ CLAUPE 
| 005174 062702 000004 ADO #4, Re 
Bpeste | Doasae FoR 
CLNUPB: RTS PC sEXIT. 


ee ee tee een wee oe 


0 etme eee 


aoe ee 
' 





peel. fgevu 083008) nore 12:14 PAGE 41 CO4 


;PRGO - READER TESTS 


77777 
Y=0 
pnbhoe O00S226 001256 PRGO: MOV #POTO,KSTART sf008 4 set ROUTINE TO KSTART. 


00S204 

JUDE 16 403038 TYPE sTYPE TITL 

D0S21 1 jats PeAR 

ae Bie eae RET SH, 
TSTAA POA’ 1000. , \X41, \x#2, \Y 
jpesersenteoseenneedeeesibannelaeesieuaueantegsveenneneeeatessseesseneess 

Parl : eppress ROUTINE * 
1000. : ITERATION COUNT 
ae sr Ge 


JAH HEHEHE HHH HHH HHH HEHEHE 
TEST ABILITY TO REFERENCE THE READER Tie ree 


ee : Sc ete tino 
: 5 en ie STORRS MEER 


’ 
; 
' 
e,\ 
ses dosuseeneeeuneeennuceeaneceereeanesses 


TA 
TST e 
caeeeumenee BA p08, 1000; xe bate 
boi: Lie ; PRGO ROUTINE * 
1 bO8 i ADDRESS RATION ae > 
j SCOPE ENTRY PO eOINte % 


POBA 
Scape Dien 
a SS et arn mmc 


005302 000004 TEST ABIL ABILITY 10 Re WY ebOBS PACER "Set ue reeNe ERROR TR TRAP. 


173702 POBA: = ; 
Tivred anda ane 


oo Coin os he 
eas He Gs Hae 





Hest ITY 1 A AND C CLEAR THE ID. ID BIT. CINTERRUPT ENABLE (BIT 6)) 


100 Sy bapar wre T SET ID 8 (BIT 6) IN READER PRS 
10f 1SEue : i seit te Ton geRs iereoe 19 ert t°EN Bes 
iN. meen. MAILED TO SET ID BIT (BIT 6) 


ft 

egy : BUFFER. (PRB) 

005306 Teta POD pe \X#1 , \X42, \¥ 

rrr r rte errr ett s retry tt HAHAHAHAHA HEHEHE 

005306 PoTe: ROUTINE * 
j neat) ROUTINE % 

00S312 001 boa TION COUNT # 
| 005314 et COPE ENTRY POINT # 
JHHHHHHHHHHEH PTrrtrrttttttrr tt Tritt tt ttt 
| 
j 


J 
ze 
88 


: 


SCOPE 












DO4 





Ue fer Er 1008) BP eli 12:14 PAGE 42 





Sere Sr BRE RR PO He MT SR RET Ate 
: RROR ; ace if Ett te) PRS FAILED TO CLEAR. 
TETRA POE’ 100; ,\X#1, \x#2,\ 
jraneeeentnnesnisbessitosnahieatiyssaasuaagegsnnnnnennesanossessen 
ae io (et erg go" 
ees ENTRY POINT t 
| HHHHEHEHEHHHHEHEHE HEHEHE BUSEOSORERETOESSRESEROREROSEGEREDD 
900100 173600 ines? nett, TO etic ars LD ee ay aL pom 
: 000100 173570 SrESET #8176, PRS TEST 1D BIT 
4018 ERROR <t2 ERROR RE rf  FNSTRUCTION. FAILED TO 
SCOPE ay T IN READER READER PRS. 


POF , 100. 
TSTAR POF: 1o0: \X41, \X42, \Y 
ieee 4, cathe SST PEOTIEVETISTITT TTT TT TTT TT TTT TTT TTT TTT TTT TTS 


— 





SEKLELEERELEE rere reer rrrn. 


173514 jrest "ABILETY 10. READ DONE BIT (8 7? ) RELIABLY 
t 


WAI APPROX 100 MILLISECS 


173504 aPRS i it (OiT 70 7 OF PRS) 
BMI +4 ; 
ERROR ; BIT NOT et, OR FAILED 
370 0 READ 


ace Gao 


POT4 INE 4 £ 
a Next ROUTINE + 
000144 iB TEST ITERATION COUNT x 
Dosze a : ENTRY POINT ¥ 
 suesuconenesesuecuenevaceussest SSHEELRSEERSLEDKE RSET KS ESSSELREAERESSLE RSE 
: rest THAT DONE IT (BIT 7 OF PRS) I NO LATER THAN 100 MSECS AFTER RDR ENS. 
i { ‘pe : Y if PAE Tern MILLISECS. 
1 173536 STB (BIT 7) 
100401 BHI Pore i BRBNCH TF ‘Si WAS SET.. 
; ots ieheett, Ibo Reece WAS NOT Se 4 
hee : if ‘A . POG, 1000. : 
| TSTAA POG, 100: \X$1, \X2, \Y 
oe Eb Seg a a ab a a de eae ata JEHHBEHHBHHHHBHHHEE 
| pars: aay ROUTINE } 
: 
* TEST TION COUNT > 
Teer ENTRY POINT Z 
| 
| 
| 








PRb11 


DZPRRA. CNB 
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173462 





r 
uJ 


A 
A 
+ 


tT, TT 
t A 
T 





1 
17 





E04 
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le:1l 


TSTA 4p 100. 
TSTAA 100; \X41, \X42, \¥ 
geeremgtesvrerestamnshecthrottszorapurnangertsanvemonnensesonens 
, & 
npr? iy f ROUTINE + 
100. tT T TION COUNT es 
POHA : SCOPE ENTRY POINT * 


+1 
3 JHE HEHEHE HHH HHH HHH HHH HHH 


“TEST THAT RESET COMMAND CLEARS DONE BIT (BIT 7 OF PRS) 
POHA: INC aPRS ; 
Y : X SO MILLISECONDS 
TSTB = APRS TEST 8 one BIT nit oa 
T ‘uate i BRN one 
TSTB © OPRS sesh DONE 


BIT 
IF DONE BIT STILL SET. 
1. DONE BIT NOT SET. 


POHC: pa mr Fiche rity. NOT RESET BY 


TETRA por 1: \X41, \X42, \¥ 
oS Se ESE-S E  a e  a 
Pot7: 7 ; PRGO 


KLLLLLLLLLLLLLAFLLELELFLEE 
# 


10 Se ROUTINE é 
toh ipo Ferari COUNT * 
ean tattle :SCOPE ENTRY POINT + 


JHE HHHEEHEEHEHHE 
jrest 1 THAT. Dove BIT (BIT 7 OF PRS) 


JHE HIE HEHEHE tae 
CLEARED WHEN ENABLING THE READER 


@PRS 
TSTB = APRS OR 
oe : ree Not SET 
STB oPRS : IN 
¢ eae b 7 no? AF PER DONE BIT 
TSTA  POJ,100. ; 
STAA POJ,100. Pk A, Th tte \X42, \¥ 
prsssennesseconsneebents hasedhucstdsscoussusevessenusnesescssonsnnnenees 


# 

Ba cee 

" ; * 

A ; # 
XsX¢1 


READER BUFFER (PRB) 


ib al 








Ly 
bopaka one yoyo A) eile 12:14 PAGE 44 FO 


oosé42 105777 173332 TSTB a T FOR DONE 8 
bears Fron oo » DONE ft ROY cLEARED 
Se 104000 rete 18 REFERENCING READ 


pon 198 100. , \X+1 oa \Y 
yeevevveneennnesasteanidaanedannsiaeeennaeeanesaueesnesanesnenesaneesy 


» PRGO ROUT 
ite ee ict te : 
SCOPE ENT + 


X=X 
seats mnnrnennnennnnn 
:TEST ABILITY TO READ READER BUFFER Mere : 


a te 


J ; 
poe: fy Seem? «Helou re 
CMP HA CHR >COMPARE CHR1 
BNE POMC ;BRANCH IF Rl AND Re DON’T MATCH 
DEC “0 
BNE POMB 
OPE ; SCOPE 
POMC: OACHV :CORRECT 1ST READ DATA TO ASCII 


HTNITIAL BATA READ FROM PRB. 


PON, 100. 

TSTAA PON? | \X41, \X42, \¥ 

jauvaneesteneansenbeasidncashaasiba caneaeaaeeaesaceneenannansaneneenets 
% 


boti2: Je s PRGD ROUTINE Je 

ft eT ITERATION COUNTE H 
| FONA : COPE ENTRY POINT | * 
eet THAT READER BUFFER (PRE) Te CLEARED BY READER ENE 
| “TEST THAT READER SUFFER (PRB) 1s CLEARED BY “ENABLE 
| bone, Me SET 


Lf one 


, 100. 
, 100. , \X+1, \X#2, \Y 


Rest T BY BY READER ENABLE. 





(2008) BY le 12:14 PAGE 45 | GO" 


icra eaaaalaamaaiaaaes "3 naniaamamaaaaaaaalaal 
POT14 A NEXT ROUTINE 


% 
ee a 


re: 





om 





e simall =. etnoniann ine RODRNOAE tin i 
seer THAT READER IS ABLE TO INTERRUPT. IF INTERRUPT IS SERVICED, IT WILL 
VE OCCURRED AT CORRECT VECTOR. 
104013 ;SET UP READER INTERRUPT VECTOR 
wee l POOA aoy #PRTYO TY To 0 
ented 155) 8 -,. aB1T6 es tee 
004737 003654 JSR %7 , AREAD CHARACTER 
000100 173116 BIS . eBiTS, aPRS ENABLE READER INTERRUPT. 
109918 lens ERROR a4 READER FAILED TO INTERRUPT. 
. oe POP, 100. , 
: TSTAA POP’ 1bb: \X+1, \X#2, \Y 
3 rhe iaeeeeeeieieiieieiieieieieieliat--'"--*"'1-11"-h 1" hihi 
000014 boTi4: 14 ; 
006144 $5 OF ROUTINE } 
000144 ST ITERATION COUNT z 
006104 Tea ENTRY POINT x 
000014 vant ces 
KEREEEEEEER ESE KEL ELRESLE LLL EELS LE SER SEELE 
Test Ti THAT READE “BEPOER “DOES NOT INTERRUPT ITH PROCESSOR AT SAME PRIORITY 
006109 104013 | "SrRoRV A ;SET UP READER INTERRUPT VECTOR 
104 12 177776 POPA: MOV VL, PSW PRI AS READER PRIORITY. 
eats . fey | BppeVts BE cab > REAOCR inERUPT. 
Sete pee oo vats 173050 are Matte SRS $00 RECO 8 Cnn cTER 
eae nee rs : NO I OCCURS. 
0061 e Tteooo 173042 CLR PRS READER INTERRUPT. 
006140 104015 POPE ERROR ERR : YI TED 
SETH E AT RT ORERE PRIORITY ’ LE VEL AS 
ine R, OR THE READER IS AT HIGHER 
| 006142 104000 PRIORITY LEVEL THAN SPECIFIED AT RDRLVL. 
006144 STA POO, 1 
| 006144 P0Q; 108° \X41, \X42, \Y 
jeenuenenanetnnntattianidiensen ssbstuusseeusnsecuueneeeueneeeeenseeantns 
006144 000015. boris: ; poreee oe ROUTI x 
146 doses : Bri6 : are & 
O01 tt ; Teter A ll : 
| rents XsXx¢l 
; LELELALLLLLLALLALALLLALLLLALLLLELALLAEAALARELEELL ES SPESEXKRSRESERELBSESSE 
ithe! TWAT R THAT READER INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
006154 0401 REO E ORY ;SET UP READER INTERRUPT VECTOR 
| 006160 013737 001212 177776 POOR: MOV RORLVL , PSW ;SET PROCESSOR PRIORITY ONE LEVEL LOWER 
| 
L 


HO4 
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DZPAAA. CNB “NOV=-76 12:11 
1 ? 177776 ; THAN READER PRIORITY 

ested oie777 ranted 172776 Ye a5 te, gPRS ‘DISABLE READER INTERRUPT 
006202 737 003654 ISR _ GO READ A CHARACTER. 

bob208 000100 172764 BI wotte, PRS jENRELE READER INTERRUPT 

006216 104015 ERROR READER FAILED TO INTERRUPT WITH 
t BSE ROOR peor aay ONE DER PaOR ou AUST BE 

104000 POQB: SCOPE ts THAN SPECIE TED Bt 


STAA \X+1, \X#2, \Y 
Sth NO I BN EN, ini SE am me 
boTi6: 16 ; PRGO ROUTI % 
POT17 sADDRESS OF ROUTINE % 
100. *TEST ITERATION COUNT + 
FORA oRepe ENTRY POINT + 


5 LERELELELELLLALE LALA LELLLE LALLA EE LERLSELE RESLHLERRSS ELK FRASER S ELAR LSE FERE 
: TEST THAT FEGOER DOES NOT REINTERR TOFTER RTI WHEN DONE BIT IS NOT CLEARED 
PORA:  STRDRV READER INTERRUPT VE 


000000 177776 Aon #PRTYO, PSH a PROCESSOR TO PRIORITY 0 
72730 CLR JPRS sists & READER INTERRUPT. 
%7 , AREAD He) A CHARACTER. 
eBiT6, IPRS ENABLE READER INTERRUPT 


BI 
enne ;ERROR 1. READER FAILED TO INTERRUPT 
MOV 
MOV 
RTI 


se 


-_ 
UES 
Gd 


ne 
sf 
g 


: SCOPE 


PORC: SPORE, @RORVTR  ;CHANGE INTERRUPT VECTOR TO PORE 


sy 


#PORD, a%6 
;RETURN FROM INTERRUPT 


—— 
33 


TerAA poe’ 1000; \X41, \X42, \¥ 


tala suszhuxenides eehecesieseessnses 1 aii 
% 


boti?: 


8 2 
— 
N 


ce : 


 EAHEASOSSSSHESHEREEHESESEEEESOEEEEEEESEEES SHLALALALALLALALE LLL ALLE LLEE 


;TEST THAT READER INTERRUPTS I IATELY ING CP paroniry TO 0. 
i oshepalies T VECTOR 10 


8 
g 
ar 


Se & 
SLs 
: 
gg 


TY7,PSW 


a TO O.. 
fa "LOKERING PR R FAILED To To “jyverruer IMMEDIATELY 


O HERE IF TUUCCESSFUL. 


a 
y 
2 


: 


SeSee 

006222 

poB222 

O0b224 

BoES3a 

theese 

006250 

boesee 

QOBSE4 

ere 

ee PORD: NOP 

ae _— ‘ATT WITH CONE BIT LEFT On 
14 

Giese 

006322 

006362 

006364 


TSTA POT, 10000. 





104 
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DZPAAA. CMB 


O4-NOV-76 l2e:l1l 
006364 TSTAA © POT, 10000. , \X4#1, \X+2, \Y 
; pesseeussscecuenscebeenseshensehoerssssessenectveneseenensestennsasennses 
. ; 
ppeaey neers Sey SS OF iE. FO ROUTINE # 
tigi peace 10000. : TEST ITERATION COUNT € 
ees : SCOPE ENTRY POINT é 
j MEAHAEOMEEERAOHOEEEEEEAEHEORSEURLEEEEOEEEESTREAEELEEEREASEEREEEEEHHHIES 
* READ AND CHECK 10000 CHARACTERS OF SPECIAL BINARY COUNT PATTERN. FULL SPEED. 
006374 004737 OO04312 JSR 47, » Bayne 3S : SET ERROR COUNTER. 
006400 004737 O04 POTA: JSR %7, ;G0 
006404 004737 004234 JSR %7 , BCHECK 3;GO CHECK CHARACTER READ. 
006410 104000 verre ; SCOPE 
006412 STA 
006412 TSTAA \X41, \X42, \¥ 
seepeieesiiiennen sinned ooHha eee cargeaeeaeeeaneaneeaneaneeaseenteaes 
006412 000021 Tel: el : PRGO ROUTINE Fe « 
006414 006450 POT22 * ADDRE OF NEXT ROUTINE # 
00641 BOCA TEST I TION COUNT = 
0064 aH eel > SCOPE ENTRY POINT x 
' _ 
; HUAMASHSERLUSERSAERESEOLELESEOLELEUEEEELEREREEEEDEOLEEEEREEEEEERE 
SER OND CHECK 900, CHAE oF RTS neers ae! MEE Pes Em, 
006422 012737 177770 OdO4e0e bons STLMSK 
006430 004737 004312 JSR BSYNC 
005434 10401 POUA: SBLL : HRenGon Stet stat ¢ 107 F 7 secs) 
ee bee oR a 
004234 J HECK ts, AOEeK CHORRSCTER READ 
006 ’ ' 


TSTA 
TSTAA eo, 10; \X41, \X#2, \Y 
af a. 


O064S0 o00022 PoT2e2 . Frou ne : 
Boies ; Fores per icenie ; 
0064 POVA % 


X=X+ 
sin oil 9-0 9 96 9 9 9 9 EEE 
;READ 1000 GROUPS OF 3 CHARS EACH. STALL (0 TO 31 MSECS) BEFORE EACH 


CO6460 ide kee 004202 MOV $177710,5 STLMSK HSIN READER, oe MSECS. 
31 JSR % SYNC ERROR COUNTER 
O0647e 01 ho0o03 004232 POVA: MOV A Si ;SET el 0 3. 
o 


TALL : (0 TO 31 MSECS) 
eo4024 POVB: 3on “7, $60 REED FER 
004234 JSR %.7 BCHECK GO CHECK CHARACTER READ. 
004232 DEC RNCNT °3 CHARS 9 
D 1371 POVB *BR IF NOT 3 CHARS YET. 





, 1000. 
TSTAA pox’ 1000. , \X+1, \X+2, \Y 
piveseectecceensesebenesehensshetesieseussaseneeseeenneecennenentneetes 


oesee 0008s Boras iaboress Oc REX Row cue 


006526 001750 1000. 
006530 Bosses POXA ;SCOPE ENTRY POINT 





re ee ee 2 


S He Se Gee 
z 


JO4 


PAB11 == MACY11 An BAY ele 12:14 PAGE 48 
DZPARA.CNB O4-NOV- 


000023 XsX+1 
IREAD AND CHECK 1000 CHARACTER GROUPS OF RANOOH LENGTH (1-70 1S). 


AND C CTER RANDOM LENGTH (1 TO 15) 
;RANDOM art (0 oi t7h4 iit ane 


17774 it MIT Re TO Ss. 
155560 04830 : CH at thal Bono iS CHARS. 
004312 %7 , BSYNC RROR C COUNTER. 
004204 POXA: i %7, GRCNT OENERATE PERO CHAR 
em POXB: = we cae 360 eee ere tes 
Busse Bee aNenT BP CHARS READ? ] 
BNE POXB ; BRANCH IF NOT. 
ST xen LaF Ay 
yeepeeneesuneanceanbineedieeanbeandaeeacenaveeeeanveneeeatessveseeantey 
poten ST t abnRe BOOT NEXT ROUTINE : 
eu iteer eFerart COUNT % 
: SCOPE ENTRY POINT t 





ee ee \i-delsi-t-teb-t-teleb-d-teleh-leb-t-t-Sttedeieh tid 
SEA BAD CHECK 1000 CHARACTER GROUPS OF SPECIAL BINARY COUNT PAT TERN. 


GROUPS (BETWEEN 1 AND 77). RANDOM STALL BETWEEN GROUPS (0 TO 31 MSECS). 
MOV + STLNSK 


iRENERATE. RANODA CHARACTER. COUNT. 


O TO 3IMSECS) 
DE 
GO 


2737 177740 OO4e02 
wer 177700 004230 
2 


a 
a 

3 
a 
i 


012737 006700 001256 PRGI: MOV #P1TO,KSTART § ;ADDR OF 1ST ROUTINE TO KSTART 
04010 TYPE TYPE TITLE. 


je PC, PCHSEL 
HP ries tee EET START STARTED. 


000. 
STRA 0D. \X41, \X#2, \Y 
jueeenenunneonntithinatibans PEPEOTIPSTTSTTETTT TTT TT TTT TTT TT TTT TTT TTT TT Ts 


esa pio Bir ‘ aboRese Sor NEXT ROUTINE : 
Serie bina s TEST TIRARTION COUNT ‘ 
pit ii ti A SLI AO It tm ten 

gizra ip ‘TEST ABILITY TO web Rah THE PUNCH STATUS WORD (PPS) 
172262 srageee PLAA: ret on 


;RE PUNCH STATUS WORD 
Score 





KO4 
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acts 104015 P1IAB: ERROR ;ERROR. TRAPPED WHEN REFERENCING PUNCH 
0067e6 104000 COPE 


; ron P18,1 : STATUS WORD (PPS). 
ue 
Spe 735 Te1aa Pie’ 1OOB; , xx#1, \x#2 
s pagunanblabncaendbbabebhbensbhonstbussqusessensnesnssausesssusensseeness 
* 


006730 900001 bit1: : PRG 
bry ss ROUTINE ‘ 
: TEST ITERATION COUNT + 
1BR : ENTRY POINT * 


/#yeeeNEeEHEAneaeeoeeaueaeeapeaeeaeeaeaveaeareaneaeeeecearearesceets 


‘TEST ABILITY TO REFERENCE THE ) 
00740 006754 900004 MOV #PIBB,MACHER _; INE ERROR TRAP 
172234 PIBA: TST aPPB : BUFFER 
P1BB: : WHEN REFERENCING 
: (PPB) 


SCOPE 

TSTA P1C, 1000. 

TAR =P *'1000. \X41, \X#2, \Y 

Seg Jenne tetterecestery oT 7 a Rageemgeetsenmnrennes 
* 


Pitas ROUTINE + 
feat aboress NeXT Rou + 


1000. 
Aad SCOPE ENTRY POINT # 
eesssastitteeeensgsassnuspeseeeensasasteaneereeeesssssunteceeeeeesssaaa 


o00100 172206 ile’ “es a8 “ah a 3 aan ae Pps (BIT 6) 
Be a ERROR, FAILED Bee ID BIT (BIT 6) IN 


i= st raga TION] ener: 
oo0100 172132 #1 astie ' R PPS acl, BIT IN PPS. 


000100 172122 eiTo, aPPS test ID sf 0's pres 
Q +4 A ts ce 
ee RROR SET INST Tien ral FAILED TO 
AR 1D BIT (BIT 5) 
tat STA pie , 1000. 
TSTAA PIE, 1000. , \X+1, \X+2 


sausnsussbeccensnsthacetabeessbuvee becnuussecceuenuuscuccessnueueucceeses 


PICB: C . N 
S6 Bit sa Té, che Gx 10. 8tT IT IN pe 
Q +4 BRANCH F Bit IS CLEAR 
;ERROR. ID BIT IN PPS FAILED TO CLEAR 
te rete pip, 100. 
TSTAA "100. \X41, \X42, \Y 
spasigantamsassnintasiiiaen intetinteasnteglinemeienenenenemmneen 
90703 6173: 3 s PRG} TI * 
007040 iit TEST ITERATION COUNT. : 
007042 F108 > SCOPE ENTRY POINT * 
007044 


Se 
ey\ fie EW Ee HG Ee 
es 








en oe eo 
Oc fro 


RONG BSRSSRSES 


S888  §888 SSSeesses S88 SSssss 


NFLS 


et ee ee ee 


SS ses 


ee 


LOY 


es abe text sour 
re : aesic RY POL age Ps 


;BRENCH Y BIT SET 
"ir 0 FAILED TO SET READY BIT, 
sap oR PATLED TO READ READY BIT. 


bit F188: \X41, \X42, \¥ 
CS ge TOO Nt tn ll lee RDA PANE LAE RNR 
fe 


bits: : ; PRG 
1T6 ROUTINE 4 
100. TEST ITERATION COUNT * 
pire *SCOPE ENTRY POINT 4 


X=X+1 
5 LELALALLAELELALELLLLLELLLLAELELLLLALAARA EES LALALA LALA ELLA RELEASE ASA ALL LE 


“TEST THAT READY BIT (BIT 7) OF PPS IS RESET BY LOADING PUNCH BUFFER (PPB) 
PIFA: SRESET sRESET 
JSR %7, CPROY *CHECK FOR PUNCH READY 
nove #0; JPPB Tee Bs 0 INTO PUNCH BUFFER (PPB) 
aPPS 
+4 BRANCH IF READY BIT Bit CLEAR las ites 
3 ERROR, +8 RPO eT ReaD READY BIT IN PPS 
S18 PG, 109. 


P1G AX+1, \X#2 
seupeneeeaveneeeneednesibaneedvean ban neaeaneeapenuveaneancesveneeaseenns 
% 


Pate: p 17 ROUTINE * 
100. ee iri : 


P1GA * 
X=X+ 

coh nse cht date no 

‘TEST THAT READY BIT (BIT 7) IS NOT RESET BY BYTE LOADING PPB+1. 


PGA: RESET 
je 47 , CPRDY Check FOR PUNCH READY. 
MOV PPB, “0 
INC “0 
#0, 9%0 ;LOAD PPB+] 
ne 2 TEST PPS 
BMI +4 *BRANCH IF READY BIT NOT RESET. 
ERROR ERROR. LOADING PPB+1 CLEARED READY BIT. 
Feta PIH, 1090. iSCOPE 
TS P1H \X+1,\ 
LEE ST A «pa 
PATLO DRESS OF NEXT ROUTINE : 
1000. TEST ITERATION COUNT i‘ 
FIHR sear ENTRY POINT & 











a err eee 
' 





MACY11 27( 1006) 
-CMB = =O4-NOV-76 


2 000240 
005077 


iosols 


Q4Y-NOV-76 12:14 PAGE Se 


le:11 


171 


S64 


216 177776 


000040 177776 
000100 171520 


100 171506 


NOY 


NUP 0K IF NO INTERRUPT OCCURS. 
CLR PPS Bee PUNCH INTERRUPT. 
P1JB: ERROR : ERRONE OUSLY INTERRUPTED 


‘Fi ra PROCESSOR AT PRIOR 
ity aces a OR The BUNCE aT) AT LET EhER 
eu, : PRIORITY OtEVEL THAN SPECIFIED AT PCHLVL. 


1000. 
PIK) 1000: \X+#1, \X#2, \Y 
SOE RERReRRERey er ennsegy << YUE” Ig ipnemeenmennercoserar 
4 


1Tle: 
saute Henarlon. COUNT ; 


FIKA sSCOPE ENTRY POINT Fs ‘ 
13H HHH HHH HHH HEHEHE gH HE Et 
;TEST THAT PUNCH INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
;THAN THE PUNCH PRIORITY 


STP ;SET UP PUNCH INTERRUPT VECTOR 
P1KA: MOV PCHL VL PSW ;SET PROCESSOR PRIORITY ONE LEVEL LOWER 
SUB :THAN PUNCH PRIORITY. 
BIC tele aPPS *DISABLE PUNCH INTERRUPT 
JSR 7,C CHECK FOR PUNCH 
BIS tetTe. OPPS ‘ENABLE PUNCH IN TERRUPT. 
ERR I NTERRUPT WITH PROCESSOR 
HPRIORITY. FP [ever LOWER THAN PUNCH. 
: THE PUNCH PRIORITY MUST 
BES iets ORE nn SPECIFIED AT PCHLVL. 
PIKB: SCOPE *HERE IF INTERRUPT OCCURS. 
TSTA L, 1000. 
TSTAA PIL,1000. , \X+#1,\ 
jeeeeesetibenevsaaehnennddaeeuboraeh beeen eenceneerncnnneaneaneeteate 
biT13 : 3 » PRGI ROUTINE rt # 
1T14 ‘ abDRESS OF NEXT ROUTINE + 
1000. TEST ITERATION COUNT * 
Fila *SCOPE ENTRY POINT ¥ 


5269 9 A EEE AE EE EEE EEE EEE EEE EEE EE 
;TEST THAT PUNCH INTERRUPTS IMMEDIATELY UPON LOWE ING CP ERI PRIORITY TO O. 
STPCHV ;SET UP PUNCH IN T VECTOR 


PILB 
PILA: %.7 , CPRDY 
Bic #BtTb, PPS asia E PUR ROH INTERRUPT 
BIS #8IT6, aPPS ENABLE PUNCH 
CLR *LOWER PRTY 
MOV #PRTY7, PSW jRAISE CP PRIORITY BACK TO 7 
*ERROR. PUNCH FAILED TO INTERRUPT IMMEDIATELY 
AFTER CP PRIORITY WAS LOWERED TO 0. ; 


PILB: SCOPE ;HERE IF INTERRUPT OCCURS. 


TSTA F 
T \X+1. \X42, \¥ 
jprepeeetineneneneedaheeosboaeedaneaatennees aces eeeneeantenneeaneerneas 
o 


1 ROUTINE 14 
;ADDRESS OF NEXT ROUTINE + 











——————— 
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PABLL MACYL1 27(1006) O4-NOV-76 12:14 PAGE S3 
DZPRAA.CNB = ON NOV"7E Le: ll 


O07S6e 000005 3 ; TEST ITERATION COUNT # 
007564 Boones IMA SCOPE ENTRY POINT # 


=X¢] 
5 FELLSLELELASHA LA FLESLALLLLALALASELLERKLAFLLELERELRLAL ELLE LSLELRALESSLESS 


p00 001339 APUNCH SPE rec TA. BINARY count aT Cae BRACTER COURT ry SPEE 
ria Boies? Biobes O a5 sail H FRONT END AND ROBE O 
2) a eee 
Borel toi ee BRE a Becteret "Che COUT O YET. 
reese i SCOPE : SCOPE 
Soress tA pine \X¢1, \X42, \Y 
lie Weacresseetans aE Recent 
Bapeas Booeee brie faboess OF Next RouiNe ' 
oS fe be pom ea 
| Fitititiiiitiiiitttt SHIDOSREOAELEOSESSELEEESEESSSE JEHBHHEHHBHEHE 
sPUNCH SPECIAL BINARY count 5 noon STALLS AFTER 
;PUNCHING EACH CS ne fet maa 47 RILLISEcONDS 
Bare 012737 177720 pores pies MOV Tey S28) ax 
| ooieg? nites se a % fan , AND MODE 1 
1S. 
ie bow 004532 ‘ ISR %7 , HSPCH 360 
001330 is RCNT Sra COUNT. 
cavers o 1 PINB ; IF NOT YET 0. 
BOvETe Teh pio’ \X1, \X42 2 
: seqesenessaiaenoyasnohenstapsenneenuetane avesteeuuenenuseeesuenteneates 
at gee me Binz boeess ON sont ete 
007704 n0772e F109 Cope ENTRY POINT. # 
’ pear euae JHHBHBHEHHHHEHHEE 
¢ mt 0 8 we COUNT PAT IN MODE 


OF CHARAC 
3 MASK FOR 57( 
TO Siz. 
Serva B'S RSE 
onl NARY COUNT 
%7 ,GRCNT’ ‘nate He Re CHERACTER COUNT 


: 
aie 
Rass 
8 
aa 
— 
yess 
aaees 
a 
7 


8 

2 

FE 

“zs goose 
ag 





2 
tal 
Tw 


















P10C: GETBNP :GET BINARY ~fuanae TER. 
JSR %7,HSPCH : 
RCAT : ere chee KOH FR 
Q PiOD iBR F ogount 0. 
c RNCNT : NO CHAR COUNT 
P10C ea F count NOT YET 0. 
P10B Branch 


P10D: OPE 
a PIP, 1. \X#1. LST. \¥ 
pitureensneesennnsebeloneciientersensenensesenvensesensnassensenneesensse 
4 


1T17: SO FEXT ROUT ROUT : 
ee trig a= 
P 








hat SCOPE ENTRY ponae s 
aesneseeseenesasataneseaueoeensansananeneeaesneneaneansnesnesnaaesntne 
{PUNCH SPECIAL BINARY COUNT PA N ’ 
SECONDS, PUNCH 32 CHARAC CHARACTERS, ONT? UNTIL THE ENTIRE PATTERN IS 
010004 itor NOV #512. .RCNT is57 COUNT TO 512. 
51001 SR %5, PFRNT B PLRCH FRONT END AND MODE 3 
1 NBIN svar Pee IN 
ties P1PB: Decay cTRL BIN count 
6 Da 832. , RNCNT et Sire Be COUNT TO 32. 
01 PIPC: GETENP TER 
1 J %7, ,HSPCH 
1 DEC RCT ; 
r BEQ PIPD hee tn S$ 0 
1 DEC RNCNT sDECREN GROUP 
1 PIPC ; BRANCH TE NOT YET 0. 
010056 PIPB i BRANCH F r 0. 
010060 PIPD: : SCOPE 
+ SUBROUTINE: TO PUNCH FRONT END MODE (USED BY PRG3). 
010062 01 PERNT: ioe 820. AN NCH CHARACTERS (000) 
1 CLR PEHOUT. CLEAR 
1 IR %7 , HSPCH H 
Biol Ore _ : IF a 20 CHARCTERS YET 
Ot 19 HOV PCHOUT SBONCH CHAR (SYNC CHAR). 
Bis my gag tac 0 roo 
10 MOV #4°%) 3PUNCH 4 HARACTERS. 
ib , HSPCH 
ie po 
10144 T 4S sEXIT 
; - FY PROGRAM 
‘TH PRDenEH fies ai43 PRODUCED BY PRGL. 
“ANY ERRORS FOUND ARE TED. 
O10146 104010 PRGe: TYPE TYPE TITLE 





DOS 


12:14 PAGE SS 


ll 


my ae 


MACY11 27( 
04 


DZPRAA. CNB 


PAB11 








es 8 we ie Se 
tie Ri: op a: 
a: P= ‘ae IS, : : ie : gos2 
3 a Seoesses "4 = Se5o § > ie 
2 gs <a. Heo Sg neue 5 E : Sgen8S E 
o “2 z 4 a = ae x a 0, ral 
i wiBhesih | | ee & 


PC, RORSEL 
-,CTRA 


Tine 
TEES 
IMe 
IM6 
thes 
CHALT 
HOV 
J 
ST 
BNE 
C 
Q 
C 
BNE 
: Bee 
BNE 
pom 
ra 
JSR 
TST 
BNE 
Be 
: MOV 
BIC 
Sra 
ORCNV 
ERRT 
ae 
CRUE 
pes 
i 
BR 
OH: JSR 
Bs 
4 : 
-] 


588 ps8 & 8 S 
Casbasiad tos tl ta tas uw 
ae She : 
={= Baa 


: soak i fo ee 

S888 8 . 88 
deltnessebctstctic!s Gbictetehcte Bee 
Sern SNE RAIL SNS eR SNE MAAC ARTS 


TF nd OMG Nd nd nd FO hd EG hd hh Oh Od GG 8 od hh Hd 8 Od dd Od a ad Gd ng ry dO HO 
OOOO OBOHOOHOOANGOOOKOOOQDKOOON0000000000000 Qo 







-_ 
+ 
—e 
= 


“—O-e 





ee ae ee ee —— 


rm in a en oe ee ee 


Pel A oe ones me 12:14 PAGE S6 


010404 000672 


Biovis 
Bidsss Gara? 


010430 


a 


oop 


Bernier 
ites 


BRS 


-_ 
£ 
~- 

NW 


bebe Re 
£vo 


a3 


OOOOOOOOOOOO0O00O0000000 
b= P= b= b= Be P= 0 FB Fe Ban ha Pan He Bw oo Po De 


04010 


faateone BERKS 


P= B= Oho 0 Bo = he Bb on = he Re bm Pe hm he 
REP HP PO re 1,¢! 


Dosis2 
Biosea 


001352 ETOI: 
ETOJ: 


001 
_ ETOK: 


003152 ECHK: 


dai 





PBIN: 


BR ET sSTeaT OVER. 
MOV #4, CTRA CTRA (CHAR COUNT) 
CLR BI ie BINR. EXPECTED CHAR IS 0. 
18 x2, ECHK es Ruch mK See READ. 
FNSIN — aerate, NAL le - 
We 3 Beebo 
GETBNR agitate GET BIN CHAR. 
see C 380 CHECK CHAR ne 
BNE ETOK : BRANCH rr NOT Sl2 CHARS READ YET. 
CMP ,BINR iDONE 8 a AGAINST EXPECTED CHAR. 
BEQ ECHKA ; BRANCH I 
OACHY sCONVERT EXPECTED DATA TO ASCII. 
ASB 
OACNY ;CONVERT DATA READ TO ASCII. 
CRBUF 
y 
ERRORN ERROR. DATA ERROR. 
EMI 
ate “7 EXIT 

- COMBINED READER-PUNCH TES 

Sige. CRY CHUN POTTER oe orn 
TTL , 
J PC, RORSEL sSELECT READER 
JSR PC; PCHSEL >SELECT PUNCH 
TYPES 
ie 
Ihe 
CHALT 
IneIN “ any “Ee BINARY. 

Phen Te” 

cn RBUSY Ponce Y INDICATOR 
i ext PTPI VECTOR. 
Give BINP. apPE Bing IT os 
BIS 88176, aPPS Le PT PL 
Fie : Serpe Ronit TO Reuse NOISE. 
Fe TEST FOR ERROR. 


SoPAAR.ChE pscnovere Assit TeEtY PAGE S? FOS 


010642 PBNA rors IF NO ERROR. 
10644 FYBE TEE RENCH NOT READY 
ere re 
1 T 
1 IN ;RECHECK FOR ERROR. 
1 170324 PBNA: Ferg S ;CHECK FOR DONE. 
PBNB sBRANCH IF DONE SET. 


sERROR.FALSE PUNCH INTERRUPT. 


row EA 
PCHCAT, #100. iol Bist, Pu PUNCH COUNT 100 YET? 


aos 


z 


011064 PBNB: 


42 
3 
3 


003154 170302 
011064 000144 


tt = 
SSPE SS Sat4 


= 





100004 
o4o19 
4 
1 
iesare 
aan 
ae 
Bt ai 
Siarie Ibi 
10718 o pee RIT ; ;NOT YET. EXIT INTERRUPT 
ie bs a eee 
i 011066 BIS eB117 RBUSY :SET DER BUSY . 
Biorag tBs7e7 Bride4 146 PBNC: ate , #102 : C ioe? 
1 101 BLOS § PBND *BR IF NOT. 
‘ Ol 170230 CUR aPPs :STOP PUNCH. 
ot ‘ashen: RI! sEXIT INTERRUPT. 
: 170214 CREAD: TS PRS * CHECK FOR ERROR. 
Gites 003732 is tse i BRROR TYPE ME 
g1O77 i 170200 CRDA ISTB aPRS TEST FOR DONE. = 
He iovo1 RO a spew FauSe REBBER INTERRUPT. 
tiboe SDF7e = 
atiBie 70166 001334 CRDAA: Hoy ae sCHARACTER READ TO CRBUF 
11 Bre sBR IF NOT 0. 
O11 000100 170152 BI #BIT6, aPPS iO. Aad ENABLED? 
ott 00 170142 aE #8 T +2EPS ?NO. PTPI. 
11 11066 CREADA: 17; RBUSY YES. READER BUSY 
Gil 170124 : is SPRS :D SABLE PTRI. 
1 CREADC: OPRS : LE READER 
| aioe PCHCNT: OPEN 
1 10473; RUE RO: %7 ,CREAD READ CHARAC 
ml eee om. 
eet: Rm ie tr fee 
111 170076 MOV SRBIN, DRORVTR ;3SET READER VECTOR TO READ BINARY 
aittas 001344 ny re TR sCOUNT. SET ERROR COUNTER TO 3. 
111 RBIN: JSR %7 , CREAD ;READ CHARACTER. | 
| 011126 RBINA: GETBNR GET BINARY CHARACTER 








spam § 


: 


7 
uw 
ra 
of 


Se 


P= B= 9 bh fo 2 hm fe pee Pe Be Fo Ha he Be 


Rest TIP TREROMoSEeeRS 


8 
— 


ru 
— 
. 


Soe ESOT 
2 SS Ee 
pate 


wu) 


- 
£ 


bs 


OOOO OOOCOOOOOOOO00O OOOOOOKOOOOOOOOOMOOOOOOOODOOO0O000000 


OF +  e Game hus Ges Pao ee Bas Pe fw fo Po f+ Bee B+ b= b= 0 bb b—* = b+ P= bb P= Fh b> = b= bs Ps = 9 0 bP bp pe he 


eo ee en en ee ee ee ee ee ee P20 b= -4 p> b= bs fs fe sh Bs Bo bs Be fee 


NOSTERS RASSRRRES 


G08) wi 12:14 PAGE S8 


3737 003152 001334 


167724 


001332 
001332 





CMP BINR, CRBUF : COMPARE BGAINST CHAR READ. 
Ne RBINB eee 1 Nor 

OAC : CONVERT EXPECTED CHAR TO ASCII 
ASB 

OACNV sCONVERT RECEIVED CHAR TO ASCII 
CRBUF 

RAS 

ERRORN ERROR MESSAGE. DATA ERROR. 

=] 

DEC ERCTR 4380 ERROR? 

BNE RBINC 

BI #B1T1S, RBUSY MeN". 

MOV #RBIND, DRORVTR ;SET PTR SECTOR TO RBIND. 

MOV #4, ERCTR *USE ERCTR AS CHARACTER COUNTER. 

MOV SCREUF 20 ADDR OF CRBUF 70 “0 

RI > sEXIT 

MOV CREME . bie iS CHARACTER STARTING AT CHR 

DEC ERCTR !3RD CHARACTER? 

Bee ‘ Pal INTERRUPT. NOT 3RD YET. 

ISR %7 .SYNCA $60 Te READER. 

BR RBINC 


SET READER pore TO RBIN. 


pants 


PUNCHES @ CHARACTERS SET IN SR. 


;TYPE TITLE. 
foie : 
J PC, PCHSEL ;SELECT PUNCH. 
TYPES 
a 
=} 
CHALT ;COMMON HALT. WAIT FOR USER. 
neve SR, : PUNCH FIRST CHARACTER. 


47 
hove sat PCHOUT ;PUNCH SECOND CHARACTER. 
“CHECKS TAPE PUNCHEBTETTH CODES SET IN SR 

| ;T THLE: 


PC, RDRSEL ;SELECT READER. 

















aa 


a2 ff be Bo fe foo fs Pa p= Po pm pe 


DENSA TOROSSRO 


eed 
o£ 


SRENIREKURGSRON BOON 


eee 
£r 


ooo 


f5e2 RERERES: 


O— b= b— bb b= b= = 0 be bf 2 bb 8 BP Bb fF Bb 0 bb pp 0 9 fb Fe he pe 


Gao Rs Gee Pas fe fae ee fe Bs Gs fe De fee Qe Bh 0 B 2 Be b= om fee be he aa fas Po Bs fe Pw Bane Be fine pee Gee 


QOOOOOCOCOOO OOOOOOOOOOOO OOO OOOO OOOOOOOOOOOODO0O0O0000000 


oo000 
er 


i on oo 


fee 
Nee 


=8 
= Cayre 


ate 
Pace 
- 

N“N NN 


oO 
-_— 
ule 
- 
[=] 


= 


Tr L- 


% 


Jaz 


7 


pes ee 


Bee 


3859 
m 


an 
oO 


177570 


ee 
1334 


1334 
1336 


001344 


001336 
001340 
177777 
001334 


001356 
001360 


001336 


001340 
001356 


001360 


001344 


001356 


001360 
001356 
001354 
001360 


fel. oe MACY11 2 pai me 12:14 PAGE $9 


HTOB: 
HTOC: 


HTOD: 


HTOE: 


HTOF : 


HTOG: 





+ EOORE EXPECTED CHARACTERS 
IN CTRC AND CT 


RO pe AGAINST EXPECTED CHARS. 
0 CHRI 


'READ CHAR 

¢ CHAR 

INTO CHR 

> (CHR1)=(CTRC)? 

YES. nsgthed= =(CTRD)? 

YES. NEXT SHOULD = (CTRC) (CTRB=0) 
;3.T COUNTER. 

iC CHAR INDICATOR 


SHOULD = ‘CTRD) 


;BRANCH IF CT 
ionour) = (Crk)? 
“(CTRC) TO ASB IN ASCII FORM. 


NO: 
;(CRBUF) TO AWAS IN ASCII FORM. 


;ERROR 1 CALL. TYPE DATA ERROR MESSAGE. 


;3_ERRORS? 
;YES. START OVER. 
NO. CONTI ING. 


i CHRD) (CTRD)? 
ES. Coney ROR RC)? 
. MATCH 


{SHOULD = 
Oy 


CONTINUE READING. 
iNOS * otro) TO ASB IN ASCII FORM. 


(CTRD) 


;GO_ GENERATE ERROR MESSAGE. 
;MATCH ah Tere gud UP 
; CUTIVE CHARAC 


;TO CHARACTERS READ FROM SR. 





11720 me: pee | Te ery BP count, 
; S 


ITB T NOT O. 
ITC: BeLaY TALL _NOW 


ITY: OPEN ;STALL COUNT IN NSECS. 


He em bo pe 
a 
a en aoe 


£Mo 


ITA ;REPEA 


7(1008) Q4oNOV-76 12:14 PAGE 60 T05 
eee a 
Hee guy mee 
ee 
fox oes? 
ia 
007s 
000000 


ITX: OPEN 
:PRG7. PUNCH SPECIAL BINARY COUNT PATTERN TEST TAPE 
Fir 3 ;TYPE TITLE. 


BR PRA7B REPEAT. 
-PRGIO - READER SPEED PRINT LOOP 
PRGIO: TYPE sTYPE TITLE 


004760 SR PC, RORSEL ;SELECT READER. 


1 
17 

1328 

ye ie Pe Tr 

1766 Obi? 004562 JSR PC, PCHSEL SELECT PUNCH. 

1 104011 TYPES 

1734 01 IML 

17g CHALT sWAIT FOR USER. 

1 ooo024 MOV #20. ,-(6) :PUNCH 20 BLANK CHAR. LEADER 
176 001332 CLR PCHOUT 

i 004532 PRG7A: 138 7 ,HSPCH 

ies be Pair 

l NBIN s INITIALIZE SPECIAL BINARY COUNT 
1764 PRG7B: GETBNP GET BINARY CHARACTER. 

1766 004532 JSR %7 ,HSPCH PUNCH CHARACTER 

1774 

1776 


ee 


S88 
- 
£ 


OOOOOOOOOOO00O0 OOOCOOOOOOOO000O C2O0CKK0K00000000 


Ban Bt Rae ot Be an as a2 Ht Pm fe Pot Be Be Pane be bm Det oe fee Pb Ge he Om Be Be ht Be te Pe Bs Be Pe Ps ee Bs po pe b= $2 Ps ps pe 


HALT. 
1 901356 KTA: CLR CTRC >CLEAR WORK REGISTERS 
on8 1354 CLR CTRB 
2026 040000 177570 BIT aB1T14,SR ; DETERNINE WHETHER eae 
Be poow16 001356 Eby 190. CTRC : Fi peetReD Fike BASE 
001356 KTB: AOD #30. ,CTRC 
oo ' KTC: - “7 : 
soe rites: ise é i RECRENENT 
1 : BNE a BRANCH TF _CTRA NOT 0 
Obes 001352 KTD: MOV 4 ,CTRA Fe OAD arRé 
1 1 KTE: TST SR sTIME UP? 
1 BPL KTC *NO. 
0121 Doves? 012214 KTF: JSR %S, CPKPL :GO TYPE OUT DEVICE SPEED. 
Olell2 O146 SM4 


rt ee eee eee ee ee 
ze 
- 
— bb 0 oe be 
o < 
a bos 
- 
fu 
Oo 
i 
-_— 
o 
OQ 
— 
az 
he 


| 
| 
| 
| 
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-CMB O4-NO 


th hehehehehe hehehehe hehe ks 
SERENSESRERSEVS 


frurvrurururururururury 


b= bt b= b= bs bh Bs Pan Bo hw Pe Bs Be Be 


PERSON 


: 





000737 


04010 
: 


—, 
~“ 


Rae 


os 


z 
3 


-~ 
——s 
Cs 
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3 Bri} 


bRGII: 


LTA: 
LTB: 
LTC: 
LTD: 


LTE: 


CPKPL: 





BR A-2 
PRG11 - a SPEED PRINT LOOP” 


an re 


TRA 
Beene IF CTRA NOT O 
CTRB. 
: MOVE 60 TO CTRA 
‘ne UP? 
GO TYPE OUT DEVICE SPEED. 


UP FOR NEXT 
: MOVE ADDR OF IST MESSAGE TO CPKPLA. 
SCONVERT (CTRB) TO DECIMAL ASCII. 


;TYPE DEVICE SPEED. 





KOS 
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;PABLL ADDITIONAL CODE TO CHECK PUNCH LOGIC AND READER LIGHTS 


MODIFIED: 
; PROGRAMMER: 


THE 


MARCH 15, 1975 
MIKE MITCHELL 
i PROBLEM CORRECTED: PUNCH GETS HUNG WHEN RUNNING OUT OF 


APE 
THIS PREVENTS 


TOR T PUNCH OFF. 
H FROM F Ay tain THE PUNCH CYCLE 


BY KEEPING READY 
PrOmen FI: SITIONS AIS RAR El? © 


:THIS CODE RUNS UNDER OPERATOR INTERVENTION. 


PROBLEM FIX 


MONE : yrrery 
ZERO: 


orc 
—— 
iy: 


;BINARY ONE PATTERN 
ZERO PATTERN 


* PROGRAM l2---HIGH SPEED PUNCH PROGRAMMABLE INIT TEST 


PRGl2: TYPE 


Wee ie TITL12 
1 co4se2 JSR PC, PCHSEL 
15560 Oiaes4 me 
ieee 0 IM23 
12264 1 =! 
12266 104024 CHALT 
Glaze Beare, Gummy e706 POLE: HIG ETE 
| biss08 Tis7a? - iseve 001332 PG12A: nove MONE. PCHOUT 
biSai4 T3757 615304 001332 nove ae 
| Olesee 004737 Sess JSR PC HSPCHI 
12326 000137 Ol IMP —séPG 2A 
| ;HIGH SPEED PUNCH ROUTINE 
; 
| 012332 00240 HSPCHI: NOP is 
| 12334 043737 001346 001332 —_ Bic BCHISK, PCHOUT 
| les42 O1 001332 166636 MOV -—- PCHOUT, aPPB 
1 pogo iz7er0 if agrTiasR 
| 012372 001371 BNE 1S 





XT _“%ZPRG12--PROGRAMMABLE INIT TESTa™ 
CT THE PUNCH 


TEXT “MAKE PUNCH READY” 
;TEXT “HIT CONTINUE™ 


;WAIT FOR OPERATOR. 
sQISReLE PUNCH INTERRUPT. 
;CHECK FOR PUNCH READY. 

; PUNCH BINARY 1 PATTERN. 


STRAY ZERO PATTERN. 


;LOOP 
; DEBUG. 
; ER. 
; FOR 
IN aT we OUT LOOP 
; 
;RE-INI H. 
-SC LOOP ENABLED??? 


OPE 
sYES,LOOP UNTIL SRI4=0. 











PAb11 
DZPARA. CNB 
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OY-NOV-76 1 
012374 004737 012436 JSR_PC, 
012400 000000 HALT 








LOS 


TIMER 


FES Pate FOE BT use 
RE OET ER oi IN ASTRUCTION, 
sELSE RETURN IS TO THE NEXT INSTRUCTION. 


OUTPUT ERROR MESSAGE OF PUNCH NOT READY 


;IF ERROR BIT 15 SET OR BIT 7 NOT SET. 


aPPS 

HSPCHe 

aPPS 

HSPCHe 

PC 
;"PUNCH NOT READY” 
;"MAKE PUNCH READY” 
; TERMINATOR 

TSTPUN ;LOOP AGAIN 


ITIMER ROUTINE FOR HIGH SPEED PUNCH 


WAITS FOR READY FLAG IN L00P 
IF READY COMES UP WITHIN ALLOWABLE TIME ; RETURN IS TO CALL+2 
*ELSE INIT IS ISSUED TO HSP AND PROGRAM HALTS AT CALL+i 


o12402 000207 
12404 166574 tSTPUN: TST 
15410 1 BMI 
Oleic | 166566 TSTB 
15416 100001 BPL 
012420 000207 RTS 
012422 104011 HSPCH2: TYPE 
1eie) 014647 srg 
HERE 1o4oe4 CHAL 
BiSdsq dbase BR 
012436 012737 177200 O013S4 TIMER: MOV 
blew p002%0 TIMER: NOP 
15446 005237 001354 INC 
012452 001406 BEG 
012454 105777 166524 TSTB 
012460 100405 BMI 
sREADY NOT SET, 
012462 104031 DELAY 
O12464 00012 10. 
O1s466 000766 BR 
012470 00240 TIMER2: NOP 
012472 000207 RTS 
012474 062716 oo0002 TINER3: ADD 
012500 000207 RTS 


#-600, CTRB ;MAXIMUM=600 MS DELAY 
CTRB ;UP COUNTER 

TIMER2 ; TIMED-OUT.. .ERROR.. 

aPPS ;READY BIT SET? 


TIMERS ;YES, OK 
SO DELAY 10 MS AND CHECK AGAIN. 
310 Lhd SE DELAY. 


TIMER! 360 CHECK AGAIN. 
PC ;RETURN TO CALL+1 
#2, (SP) ;RETURN TO CALL+2 IF NO ERROR 


PC 


:ADDITIONAL CODE TO PROVIDE READER LIGHT TEST UNDER OPERATOR 
; INTERVENTION. 
;USE SWITCH 8 TO TURN READER LIGHT OFF 


USE SWITCH 12(1) TO SELECT NEW READER TO TEST. 


















CMB = O4-NOV 


TES Tae PROLS: 3 TEXT oPREL “READER IGHT TEST" 
pigeRe piesa 004760 PRG13C: JSR PC, RORSEL iE LECT READ A CUR 
Olet12 104011 PRG138: TYPES nESoe 
Giesld 1574 1m138 oT URAC GHT oN VIA ROR SWITCH” 
12516 1Paae M138 i XT “USE TO TURN LIGHT 
Olese0 177777 -1 OFF” 

-SW8=1 TO TURN LIGHT OFF. 
012522 013700 177570 PG13A: MOV 
012526 000400 BIT #0, RO ; CHECK BIT 8. 
Ole53e O01 BEQ G13A SWITCH DOWN. NO ACTION REQUIRED. 
O1eS34 QO0400 166436 1S: BIS Gta aPaS ELSE TURN LIGHT OFF. 
12542 040000 177570 BI #BrTl4, OPE LOOP SET? 
12550 00137 NE 1$ s YES obP UNTIL 's SR14=0. 
12552 HALT ‘WAIT FOR OPR TO HIT CONTINUE ie 
12554 032737 010000 177570 BIT #10000, SR *CHECK FOR SELECT NEW READER. Fs 
012562 001351 BNE PRG13C’ YES, SELECT NEW READER. 
012564 000752 BR PRG13B 
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DZPARA. “76 le:1l 


ee 


ee tee ee nee me e+e a -—— me ne ee ne te re ee = ee em ens ee a + re ¥ 


mee eee eee wee we eee - oe eee ee me me ee a i es ee | ree mn 
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DZPARA.CNB O4-NOV-76 12:11 


01eS66 O22e44S iec APGEND: .ASCII ’%xP’ 


ee me a nn ee te, mr ne a ee 


BOG 
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l2:il 


) 


PAB1i «= MACYLI 2701 
DZPRAA.CNB = Q4-NOV- 


END. @’ 


"ZX INVALID PROGRAMQ" 


ASCII 
ASCII 


047105 APN: 


*%2%° INVALID TEST’ 


-ASCIT 


*%%SET SR OPTIONS. NORMAL SR IS O0000Ca’ 


ASETSR: .ASCIT 


*“2“TYPESET 11 READER-PUNCH TESTS~a’ 


-ASCIT 


PGTIT: 





*%SET SR WITH RORO VECTOR.2’ 


*ZSET & OF READERS IN SR.@’ 
*%SET # OF PUNCHES IN SR.@’ 


MSVCTR: .ASCII 
SELROR: .ASCII 
SELPCH: .ASCII 


re Le eae 


*ZMAKE READER READY.@’ 


-ASCIT 








sto ngremenraeca ear apap 


Se ee EIN 








AMAL. 


CO6 
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ll 


MACYL1 27( 1006) 
=e tz: 


PRE11 
DZPARA.CNB = OY NOV 


"¥SET SRIS TO SRB TO NO. OF CHARS TO READ,’ 
*%ZSET SR7 TO SRO TO NO. OF MSECS TO STALL.@’ 


*%ZPRG2. PUNCH VERIFY TEST.@’ 


a IM: -ASCII °’XLOAD READER WITH TAPE PRODUCED ’ 
ibs 
1828 

"BY PRG1.2’ 


‘*ZZPRG4Y. PUNCHES 2 CODES SET IN SR.@’ 


ASCII 
-ASCITI 
-ASCIT 
-ASCIT 
-ASCITI 


IMI?7: 
TITL2: 
TITL4: 






4 
eh 
8 


T 
ie 


VLR popes £8 ee cmuice 


dE dF 8 ad Oh 8 ad eh dd 8 hd dG Pd hd Oh Gh ed 9 Od OG OE OS OG Gd ad SG HG a ad ed HEE SHO 


QOO0WO0WH0WOOIOOW0W000900000000090000000000000000 


*“SET CODES TO BE PUNCHED IN SR.@’ 


-ASCIT 





; 
5 
: 
; 
3 
: 


-ASCII ’ 


TITLS: 











"YLOAD ANY TAPE LOOP IN READER ° 


oi be 
Fs} - 
2 ia 
& te 
ime ely ba Maes 
ran) gs «§ ® . 
Jay y 
. Ribs 
Go RR 2 “O70 
= G5 PPP=SSARSSBA SP2AB F 
2 £288 248z aos vitaa of 
. £972 TMG Mee: 
i-@ rT-< = a. a.) 
ba §zeN esis a 





1 
il 
1 
1 
ll 
1 
10 
11 
“pyse 
10 


of-ndv=e 


le 042510 020104 
r 
1 
1 
1 


Yll 


WD Fh hd Ob nh nd Hd Od dh Od Hd md Od Od Od Hd Od 
OOOWWOWOWOOOO0H0009000000000000 


ERP IRAE gee NRT UOg HE WSs 


PAE11 NAC 
UZPARA. CNB 


eS SS a cs 


E06 


Yll bs ne - Q4-NOV-76 12:14 PAGE 69 
O4-NOV-76 lel 


PAb11 MAC 
CNS 





*%SET SR14Y TO A 1 FOR 300 SEC ° 
"TIMING, OR SET IT TO O FOR 30 ’ 


ASCII 
-ASCIT 


| on ham ham) 


ites esas 
=—Sa5N 


25gae=2 


| OZPRAA. 


eee ee oe ee 


ne ee ee: ee me 


PAG11 _MACYL1_27(1606) Q4-NOV-76 12:14 PAGE 70 
bopaba. Ne oGcndvere aSs11 
014223 123 O41505 047117 .ASCII 'SECOND TIMING. a! 
O44S15 ' 


014230 020104 44524 
014236 O43516 O400SE . 
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ll 


1 


ER 


MACY1L1 
CNB 








; to 4 
? & i 4 
= $s 8 et : 
oi 8s a § 2 fc 
in e = - 3 5 rr iS 
2 = . S & e 0G a 
Licey Se a eR 
Z 2 §«6« i. <.5.8 gE 2 
2 “hae SS og eg § 
Pk Pe $8 8 g $2 3g 
2 mA ay 
i fF OE zt a 
SG: Teas Be ose ak pegars 2 

: octets & Fes eae Baty Sears SS 3 


Giald latetetls! alates Giese inuueteed Woes 


CS eek 
SUD yoaD UU OUN POTEET STE EE ET ss eoutuneoniueeteteeS 


- FATT ITT S TTT I SST STATES TTT ST STITT SSE ST TET TTT S TTI ISITE 
2QOOWOOOWOOOOW0W0OBWOHW0O0O0002900000000000000 











é z 
: fe ‘ i . 5 
cos ee é z 3 3 
o # 83 & : 5 tee Pee ho ee wl 
Sou hie doo hey Piel 
“Ned Sh 8 ee ee be 
TA ey Say by foo 
02 222 BEE PE 2m fee eB 
a8 Geo we bHe ah fhe ah 
% 458 3 33 Sue 
; 2 a 110m Pies Fs Ji 
Sy 


4 ibe 
tii Ls 


+ ge ragga ect a 


DI 8d hd a dh hd dh Hh Gy 8 dG ed ed gd ed 8 Og Rd ed a 4 a dh ed ed a RH EE Oe 
OQQOOWWWIOWWHOWVWWOOOWOWWOWOOOWQWOONDO080000000000000: 


aia 





Pe 


PAB11 = MACYL1 
OZPRAA. CNB 





be ae ee ee oe + 





I06 











rs . 
—) | - 
f § a 
wo wo 2 
=} =} 
: ~ 1 - ca 
4 a - = i 
ee Bs 8 . 5 
ceo, Ms We hee = & & 3 = 
. Oo read ral zx — oo - fod 
wn & a. is x 5 = 5 a = 
a ce tet . “od ee oa: 
ge Ss Pe eee Bae Bee 
we 04 08 Be Big fk Poe g Boog ee ee 
a i -- S 2 = a & 3 = 
-. BEE z BG CB ae a t- 
roy) ™ 
= 35 Sh gaa zeae Ze AeNe=8 ANS MME See are Be 
e 2 a oe ee aa S25 G25 GES : 
> 
2 
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ik kee 
inerennvrnne aman aA RACECAR URE E RRR CERN SRE MNS 


Scie I aa Raum Reems Ieee, Meee Beceem Negrn Keon Beceem Neer Boren Deco: Ree Ream Brees Deco Ream, Pear, ere, Roe, ere re rr ee ee ee te re ee ee ee ee re re ee re re rn ie ee re re re ee ee ee es Foe eee ee ee ee 
QOOWWOWWWWOWOWOOOWWWWOOOWIBWHOW0BOW0000000000000000000000000000O 


of-ndv=76 
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ll 


PAB1i == MACY11 27( 1006) 
DZPRRA.CNB  O4-NOV-76 al 


*%~TURN LIGHT OF READER ON VIA RDR CONTROL SWITCHQ’ 


*“PUT SWB TO 1 TO TURN LIGHT OFF.a’ 


ASCII 
-ASCII 
END START 


IM13A 
IM138: 


i 


pears 


b ebesés a 


rat 
rat on ae 


ee fe ger A Ey 
Szeeeee ae 


cprescreenet 


Oh hh ht bg Hh Hd htt tet 6 
OOOO 000000000000 


44 








137 
4y 
2236 2257 


2812 
sii} 
43 





2927 
2808 
Saad 
2219 






2184 
2714 
528 
e202 
2367 






: . 5 ge 
he 

@ 

s e nana as 

a 2 pat st 






™ 
z S is Se 
g OR FE & RE 


2070 
2907 
33778 
2258 
1735 
3064 
2839 
aan 
e517 
2689 


CROSS REFERENCE TABLE -- USER SYMBOLS 






; Sih & BR Se 8 
=e eS cam ca7 
*g § $238 8 we mee iy 
, «Reeeemerataae Bahan BF Re Be =| eee Maaadagsts 
£3 SoupO Panes gag SeeoPReed aadoeae anmnian sa soir aand aed iekc 
: 


NACY1L 2 


a se 


Sei Bitesstehes UE ese Seen: necgeecs Be 


ll 


DZPAAA.CNB O4-NOV-76 le 


me ee ee 





PAG 

















PR6B11 MACY 27(1006) O4-NOV-76 
DZPARAA. CMB OY-NOV-76 le:1ll 
ae 3 1716 17198 
s 10988 
CHAINN 001752 1176 1268s 
sans eda ace Asis 
CHLT 002502 its isn 
ena besoee Sa et 
CHNAB 002000 l1e74e 3=1278 
CHNAC O01 1670 iszse 
a tie eet 
1 l1164e@ 8 8172S% 
CHR3 1342 11658 1727% 
CLNUP 134 l2e32 18438 
CLNUPA O0Si6b2 18488 1853 
CLNUPB 18S S548 
i a Bee 
fin ee iB. 
CPKPLA Ole232 2999# Sree 
CPRDY 17578 1767 
CPROYA OO4S16 1758 1760 
CRBUF 001334 iiose ieee 
ll 1 
CRDA 010774 e778 e7ble 
CRDAA thats oe e7868 
CREADA 1 ipoe 8 
CREADC 1 ry 
CTRA a4 11938 Nye a 
kre Bb gee i1ee SBeee 
KIRTST berets eH ae 
peeve Ghseee ieee) ieee 
Y=] 1 le0es 1613 
IGIT 1870% 1573% 
CNT 1471# 81474 
DLCTR 14648 
DL YAN 14768 861480 
YBN 14778 3=61478 
YCN ane tit 
YN 120 14718 
He pi peoe 271 27248 
Ts ioase 11988 1436 
TA 24 t3 1338 
INT 136 aaa 13038 
fetes 1364 eH 1307 
Bn fe 
2 11008 11778 
11898 11908 
le0es 


12:14 PAGE 
CROSS REFERENCE TABLE -- USER SYMBOLS 





1729 


77 


2201 


2881 





2217 


afi 


LO6 


2233 





2eS4 


age 


2275 


4087 









1780 


1816 


eo47 





2736 
















MO6 
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O4-NOV-76 1é:11 CROSS REFERENCE TABLE -- USER SYMBOLS 
ENO 14761 14270-33598 
15043 i7le@ = e722 820 ©=— e892 Ss 33718 
0 5361 1674s e784 S428 
1 11 760 0=—s 34178 


33868 


wna) 
————— 
SASS 
rat 
- Th! 
— io” 
eure) 
feeleal 
@ 
52 4 cam 


QOdo000000 


b+ ps 6B BH BH bh HH 


BaseazoRse = 


Seu 2 
$321 34058 
$337 l6ee 1659 34088 
TR 001344 11668 1 Sos 17308 1845* e804 e822 2827 2832% 2838% 2877% 2894 
pOSPES 1189 §=614008 
ERRB 1409 1410% 1412 1427# =614318 =61433% 61434 
ERRN 002536 1190 14028 
ERRNA 42 14e8e 8614 
ERRNB 1400% 1402e% 1429 14328 
ERROR Tools i808 1878 893 909 915 1931 1948 = 196 6) 6S. hw 2026 07 
e096 = el 18 sia] . elbe 169 e188 e304 Ss 231 e334 = 2339 soee 2370 ey 
2406 oo fm so & e498 8=_ £520 
ERRORN= 104016 iyaue tort o0 1658 1673s «1711 1751 2055 e660 268 2693 2721 2759 
ERRT poss A578 ee7us 671% 2672 2675 
ETOA OiSi76 sree Bas e685 2696 2710 
ETOB Ql 26498 265 
ETOC 010206 2ecc0s 2656 
He Hee BSE a 
TOF 010254 2654 4# 2668 
TOG =86Ql ig k 
a fBe 
‘2 ae 
ETOK O10446 27058 2709 
FORWD bosa7e 1254 issue 
FORWDA 
FPC 73@ = =61403% =1405 
FPCMSG 


— 
— 
ball 
w 
s 

Rg 


1831 


ece4 - 2610 2745 2763 2948 
1736 «=6s:1738 «= e706 = 2807 
1284 3 8=§=— 1293 


3 
<a 
3 





eS8e2 


ow 
: 
SoLees- 
Seat 
is 
Bee 
3 


Gb DR be Rs Pb Be 


200 
1 7 
91 692% 
arene 003 200 SEH 
Hae BB 
G M 1700 esse 
GTRDYC 001714 eSh 812588 
GTROYD 001732 ebes 


sparen: ] 
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GTRDYX 001660 
HSPCH O04S32 
HSPCH] 01 
0S RE 
HTOR 11414 
HTOB 11464 
HTOC)§8=—-«sOL 1 #7 
ne Biles 
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